inherited crdDogovor: TcrdDogovor
  Left = 189
  Top = 104
  Width = 851
  Height = 587
  HelpContext = 11412
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1091#1089#1083#1091#1075#1080
  Constraints.MinHeight = 550
  Constraints.MinWidth = 780
  Menu = MainMenu1
  OldCreateOrder = True
  ShowHint = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 514
    Width = 843
    inherited BitBtn1: TBitBtn
      Left = 628
      Width = 104
      Default = True
      ModalResult = 1
    end
    inherited BitBtn2: TBitBtn
      Left = 735
      Width = 104
    end
  end
  inherited ToolBar1: TToolBar
    Width = 843
    Height = 28
    ButtonHeight = 23
    EdgeBorders = [ebTop, ebBottom]
    object Panel3: TPanel
      Left = 77
      Top = 0
      Width = 708
      Height = 23
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        708
        23)
      object Label1: TLabel
        Left = 23
        Top = 4
        Width = 43
        Height = 13
        Alignment = taRightJustify
        Caption = #1059#1089#1083#1091#1075#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 524
        Top = 4
        Width = 105
        Height = 13
        Alignment = taRightJustify
        Anchors = [akTop, akRight]
        Caption = #1057#1072#1083#1100#1076#1086' '#1087#1086' '#1091#1089#1083#1091#1075#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dbeSrvName: TDBEditEh
        Left = 72
        Top = 2
        Width = 437
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        Color = clInfoBk
        DataField = 'GRP_NAME'
        DataSource = dsc_AbonService
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Flat = True
        ParentFont = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 0
        Visible = True
      end
      object dbeSrvSaldo: TDBEditEh
        Left = 636
        Top = 2
        Width = 69
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akTop, akRight]
        Color = clInfoBk
        DataField = 'SRV_SALDO'
        DataSource = dsc_AbonService
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Flat = True
        ParentFont = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 1
        Visible = True
      end
    end
  end
  object PageControl: TPageControl [2]
    Left = 0
    Top = 28
    Width = 632
    Height = 486
    ActivePage = MainSheet
    Align = alClient
    Constraints.MinWidth = 550
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MultiLine = True
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 2
    OnChange = PageControlChange
    OnChanging = PageControlChanging
    object MainSheet: TTabSheet
      Caption = #1044#1086#1075#1086#1074#1086#1088#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      object pcDogovor: TPageControl
        Left = 0
        Top = 0
        Width = 624
        Height = 455
        ActivePage = tsCurrentDog
        Align = alClient
        TabOrder = 0
        OnChange = PageControlChange
        object tsCurrentDog: TTabSheet
          Caption = #1058#1077#1082#1091#1097#1080#1081' '#1076#1086#1075#1086#1074#1086#1088
          object Panel2: TPanel
            Left = 0
            Top = 0
            Width = 616
            Height = 427
            Align = alClient
            BevelOuter = bvNone
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            object gbCurrSupplier: TGroupBox
              Left = 0
              Top = 0
              Width = 616
              Height = 85
              Align = alTop
              Caption = ' '#1055#1086#1089#1090#1072#1074#1097#1080#1082' '#1080' '#1059#1050' '
              Ctl3D = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 0
              DesignSize = (
                616
                85)
              object Label3: TLabel
                Left = 40
                Top = 18
                Width = 79
                Height = 13
                Alignment = taRightJustify
                Caption = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075'.'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label4: TLabel
                Left = 61
                Top = 40
                Width = 58
                Height = 13
                Alignment = taRightJustify
                Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label5: TLabel
                Left = 12
                Top = 62
                Width = 107
                Height = 13
                Alignment = taRightJustify
                Caption = #1059#1095#1072#1089#1090#1086#1082' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object dbeManag: TDBEditEh
                Left = 125
                Top = 15
                Width = 482
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akLeft, akTop, akRight]
                Color = clInactiveCaptionText
                DataField = 'MANAG'
                DataSource = dsc_AbonService
                EditButtons = <>
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Flat = True
                ParentFont = False
                ReadOnly = True
                ShowHint = True
                TabOrder = 0
                Visible = True
              end
              object dbeSupplier: TDBEditEh
                Left = 125
                Top = 37
                Width = 482
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akLeft, akTop, akRight]
                Color = clInactiveCaptionText
                DataField = 'SUPPLIER'
                DataSource = dsc_AbonService
                EditButtons = <>
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Flat = True
                ParentFont = False
                ReadOnly = True
                ShowHint = True
                TabOrder = 1
                Visible = True
              end
              object lcbSupplierDeps: TDBLookupComboboxEh
                Left = 125
                Top = 59
                Width = 482
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akLeft, akTop, akRight]
                DataField = 'SUPPLIER_DEPT'
                DataSource = dsc_AbonService
                EditButtons = <>
                Flat = True
                KeyField = 'ID'
                ListField = 'NAME'
                ListSource = dsc_SupplierDeps
                ShowHint = True
                TabOrder = 2
                Visible = True
                OnChange = lcbSupplierDepsChange
              end
            end
            object pCurrDogovor: TPanel
              Left = 0
              Top = 85
              Width = 616
              Height = 115
              Align = alTop
              BevelOuter = bvNone
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              DesignSize = (
                616
                115)
              object Label6: TLabel
                Left = 57
                Top = 7
                Width = 61
                Height = 13
                Alignment = taRightJustify
                Caption = #8470' '#1076#1086#1075#1086#1074#1086#1088#1072
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label7: TLabel
                Left = 42
                Top = 29
                Width = 76
                Height = 13
                Alignment = taRightJustify
                Caption = #1044#1072#1090#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label8: TLabel
                Left = 333
                Top = 7
                Width = 87
                Height = 13
                Alignment = taRightJustify
                Anchors = [akTop, akRight]
                Caption = #1053#1072#1095#1072#1083#1086' '#1076#1077#1081#1089#1090#1074#1080#1103
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label18: TLabel
                Left = 315
                Top = 29
                Width = 105
                Height = 13
                Alignment = taRightJustify
                Anchors = [akTop, akRight]
                Caption = #1054#1082#1086#1085#1095#1072#1085#1080#1077' '#1076#1077#1081#1089#1090#1074#1080#1103
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label11: TLabel
                Left = 316
                Top = 76
                Width = 50
                Height = 13
                Alignment = taRightJustify
                Caption = #1040#1082#1090#1080#1074#1085#1099#1081
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label2: TLabel
                Left = 63
                Top = 51
                Width = 55
                Height = 13
                Alignment = taRightJustify
                Caption = #1042#1080#1076' '#1091#1089#1083#1091#1075#1080
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label9: TLabel
                Left = 31
                Top = 73
                Width = 87
                Height = 13
                Alignment = taRightJustify
                Caption = #1057#1072#1083#1100#1076#1086' '#1076#1086#1075#1086#1074#1086#1088#1072
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object Label14: TLabel
                Left = 54
                Top = 95
                Width = 64
                Height = 13
                Alignment = taRightJustify
                Caption = #1057#1072#1083#1100#1076#1086' '#1087#1077#1085#1080
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
              end
              object dbeDogNum: TDBEditEh
                Left = 125
                Top = 4
                Width = 125
                Height = 19
                AlwaysShowBorder = True
                DataField = 'DOC_NUM'
                DataSource = dsc_AbonService
                EditButtons = <>
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Flat = True
                ParentFont = False
                ShowHint = True
                TabOrder = 0
                Visible = True
              end
              object dbdeDogBdate: TDBDateTimeEditEh
                Left = 429
                Top = 4
                Width = 90
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akTop, akRight]
                DataField = 'BDATE'
                DataSource = dsc_AbonService
                EditButtons = <>
                Flat = True
                Kind = dtkDateEh
                ShowHint = True
                TabOrder = 1
                Visible = True
              end
              object dbdeDogEdate: TDBDateTimeEditEh
                Left = 429
                Top = 26
                Width = 90
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akTop, akRight]
                DataField = 'EDATE'
                DataSource = dsc_AbonService
                EditButtons = <>
                Flat = True
                Kind = dtkDateEh
                ShowHint = True
                TabOrder = 2
                Visible = True
              end
              object dbdeDogDate: TDBDateTimeEditEh
                Left = 125
                Top = 26
                Width = 90
                Height = 19
                AlwaysShowBorder = True
                DataField = 'DOC_DATE'
                DataSource = dsc_AbonService
                EditButtons = <>
                Flat = True
                Kind = dtkDateEh
                ShowHint = True
                TabOrder = 3
                Visible = True
              end
              object rbDogActive: TRadioButton
                Left = 373
                Top = 75
                Width = 49
                Height = 17
                Caption = #1044#1072
                Checked = True
                Enabled = False
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 4
                TabStop = True
                OnClick = rbDogActiveClick
              end
              object rbDogInActive: TRadioButton
                Left = 418
                Top = 75
                Width = 49
                Height = 17
                Caption = #1053#1077#1090
                Enabled = False
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                ParentFont = False
                TabOrder = 5
                OnClick = rbDogActiveClick
              end
              object dbeDogSaldo: TDBEditEh
                Left = 125
                Top = 70
                Width = 87
                Height = 19
                AlwaysShowBorder = True
                Color = clInactiveCaptionText
                DataField = 'BALANCE'
                DataSource = dsc_AbonService
                EditButtons = <>
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                Flat = True
                ParentFont = False
                ReadOnly = True
                ShowHint = True
                TabOrder = 6
                Visible = True
              end
              object dbeDogPeni: TDBEditEh
                Left = 125
                Top = 92
                Width = 87
                Height = 19
                AlwaysShowBorder = True
                Color = clInactiveCaptionText
                DataField = 'PENI'
                DataSource = dsc_AbonService
                EditButtons = <>
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = [fsBold]
                Flat = True
                ParentFont = False
                ReadOnly = True
                ShowHint = True
                TabOrder = 7
                Visible = True
              end
              object lcbServiceType: TDBLookupComboboxEh
                Left = 125
                Top = 48
                Width = 394
                Height = 19
                AlwaysShowBorder = True
                Anchors = [akLeft, akTop, akRight]
                Color = clInactiveCaptionText
                EditButton.Visible = False
                EditButtons = <>
                Flat = True
                KeyField = 'ID'
                ListField = 'NAME'
                ListSource = dsc_ServiceList
                ReadOnly = True
                ShowHint = True
                TabOrder = 8
                Visible = True
                OnChange = lcbServiceTypeChange
              end
              object cbPeniCharge: TDBCheckBoxEh
                Left = 316
                Top = 96
                Width = 117
                Height = 17
                AlwaysShowBorder = True
                Caption = #1053#1077' '#1074#1079#1099#1084#1072#1090#1100' '#1087#1077#1085#1080
                Flat = True
                State = cbGrayed
                TabOrder = 9
                ValueChecked = '1'
                ValueUnchecked = '0'
                OnClick = cbPeniChargeClick
              end
            end
            object Panel4: TPanel
              Left = 0
              Top = 200
              Width = 616
              Height = 227
              Align = alClient
              BevelInner = bvRaised
              BevelOuter = bvLowered
              TabOrder = 2
              object pcNormTariff: TPageControl
                Left = 2
                Top = 2
                Width = 612
                Height = 223
                ActivePage = TariffsSheet
                Align = alClient
                Style = tsFlatButtons
                TabOrder = 0
                OnChange = PageControlChange
                object TariffsSheet: TTabSheet
                  Caption = #1058#1072#1088#1080#1092#1099
                  object Panel9: TPanel
                    Left = 0
                    Top = 18
                    Width = 604
                    Height = 174
                    Align = alClient
                    BevelOuter = bvNone
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 0
                    object ToolBar2: TToolBar
                      Left = 0
                      Top = 0
                      Width = 24
                      Height = 174
                      Align = alLeft
                      ButtonHeight = 23
                      Caption = 'ToolBar2'
                      EdgeBorders = []
                      Flat = True
                      Images = MAIN.ImageList
                      TabOrder = 0
                      object ToolButton5: TToolButton
                        Left = 0
                        Top = 0
                        Action = aNewTariff
                        Wrap = True
                      end
                      object ToolButton6: TToolButton
                        Left = 0
                        Top = 23
                        Action = aEditTariff
                        Wrap = True
                      end
                      object ToolButton7: TToolButton
                        Left = 0
                        Top = 46
                        Action = aDelTariff
                      end
                    end
                    object dbgTariffDates: TDBGridEh
                      Left = 24
                      Top = 0
                      Width = 580
                      Height = 174
                      Align = alClient
                      Constraints.MinWidth = 200
                      DataGrouping.GroupLevels = <>
                      DataSource = dsc_TariffDates
                      Flat = True
                      FooterColor = clWindow
                      FooterFont.Charset = DEFAULT_CHARSET
                      FooterFont.Color = clWindowText
                      FooterFont.Height = -11
                      FooterFont.Name = 'MS Sans Serif'
                      FooterFont.Style = []
                      OddRowColor = clInactiveCaptionText
                      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                      ReadOnly = True
                      RowDetailPanel.Active = True
                      RowDetailPanel.Height = 95
                      RowDetailPanel.ActiveControl = dbgTariffs
                      RowDetailPanel.BevelInner = bvNone
                      RowDetailPanel.BevelOuter = bvRaised
                      RowDetailPanel.BevelKind = bkFlat
                      RowDetailPanel.BorderStyle = bsNone
                      RowDetailPanel.Color = clBtnFace
                      TabOrder = 1
                      TitleFont.Charset = DEFAULT_CHARSET
                      TitleFont.Color = clWindowText
                      TitleFont.Height = -11
                      TitleFont.Name = 'MS Sans Serif'
                      TitleFont.Style = []
                      UseMultiTitle = True
                      VTitleMargin = 5
                      OnKeyUp = dbgOperationsKeyUp
                      OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
                      Columns = <
                        item
                          EditButtons = <>
                          FieldName = 'RBDATE'
                          Footers = <>
                        end
                        item
                          EditButtons = <>
                          FieldName = 'RSUPER_TARIFF'
                          Footers = <>
                          KeyList.Strings = (
                            '0'
                            '1')
                          PickList.Strings = (
                            #1053#1077#1090
                            #1044#1072)
                          Visible = False
                        end
                        item
                          Alignment = taLeftJustify
                          EditButtons = <>
                          FieldName = 'RGEN_TARIFF'
                          Footers = <>
                          KeyList.Strings = (
                            '-1'
                            '0'
                            '1')
                          PickList.Strings = (
                            #1044#1086#1084#1086#1074#1086#1081' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081
                            #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081
                            #1054#1073#1097#1080#1081)
                          Width = 147
                        end
                        item
                          EditButtons = <>
                          FieldName = 'SERVICE'
                          Footers = <>
                          Width = 185
                        end
                        item
                          EditButtons = <>
                          FieldName = 'TARIFFS'
                          Footers = <>
                        end>
                      object RowDetailData: TRowDetailPanelControlEh
                        object dbgTariffs: TDBGridEh
                          Left = 0
                          Top = 0
                          Width = 503
                          Height = 93
                          Align = alClient
                          Constraints.MinWidth = 130
                          DataGrouping.GroupLevels = <>
                          DataSource = dsc_Tariffs
                          Flat = True
                          FooterColor = clWindow
                          FooterFont.Charset = DEFAULT_CHARSET
                          FooterFont.Color = clWindowText
                          FooterFont.Height = -11
                          FooterFont.Name = 'MS Sans Serif'
                          FooterFont.Style = []
                          OddRowColor = clInactiveCaptionText
                          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                          ReadOnly = True
                          RowDetailPanel.Color = clBtnFace
                          TabOrder = 0
                          TitleFont.Charset = DEFAULT_CHARSET
                          TitleFont.Color = clWindowText
                          TitleFont.Height = -11
                          TitleFont.Name = 'MS Sans Serif'
                          TitleFont.Style = []
                          UseMultiTitle = True
                          VTitleMargin = 5
                          OnKeyUp = dbgTariffsKeyUp
                          Columns = <
                            item
                              EditButtons = <>
                              FieldName = 'RTARIFF'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RSEQ'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RTARIFF_ID'
                              Footers = <>
                              Visible = False
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RCREATEDATE'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'CREATEUSER'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RMODIFYDATE'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'MODIFYUSER'
                              Footers = <>
                            end>
                          object RowDetailData: TRowDetailPanelControlEh
                          end
                        end
                      end
                    end
                  end
                  object Panel8: TPanel
                    Left = 0
                    Top = 0
                    Width = 604
                    Height = 18
                    Align = alTop
                    BevelOuter = bvNone
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 1
                    object dbcbGenTariff: TDBCheckBoxEh
                      Left = 4
                      Top = -1
                      Width = 196
                      Height = 17
                      AlwaysShowBorder = True
                      Caption = #1059#1095#1077#1090' '#1087#1086' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1084' '#1090#1072#1088#1080#1092#1072#1084
                      Flat = True
                      TabOrder = 0
                      ValueChecked = '0'
                      ValueUnchecked = '1'
                      OnClick = dbcbGenTariffClick
                    end
                  end
                end
                object NormsSheet: TTabSheet
                  Caption = #1053#1086#1088#1084#1099
                  ImageIndex = 1
                  object Panel6: TPanel
                    Left = 0
                    Top = 0
                    Width = 604
                    Height = 18
                    Align = alTop
                    BevelOuter = bvNone
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 0
                    object dbcbGenNorm: TDBCheckBoxEh
                      Left = 4
                      Top = -1
                      Width = 196
                      Height = 17
                      AlwaysShowBorder = True
                      Caption = #1059#1095#1077#1090' '#1087#1086' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1084' '#1085#1086#1088#1084#1072#1084
                      Flat = True
                      TabOrder = 0
                      ValueChecked = '0'
                      ValueUnchecked = '1'
                      OnClick = dbcbGenNormClick
                    end
                  end
                  object Panel5: TPanel
                    Left = 0
                    Top = 18
                    Width = 604
                    Height = 174
                    Align = alClient
                    BevelOuter = bvNone
                    Font.Charset = DEFAULT_CHARSET
                    Font.Color = clWindowText
                    Font.Height = -11
                    Font.Name = 'MS Sans Serif'
                    Font.Style = []
                    ParentFont = False
                    TabOrder = 1
                    object ToolBar3: TToolBar
                      Left = 0
                      Top = 0
                      Width = 24
                      Height = 174
                      Align = alLeft
                      ButtonHeight = 23
                      Caption = 'ToolBar2'
                      EdgeBorders = []
                      Flat = True
                      Images = MAIN.ImageList
                      TabOrder = 0
                      object ToolButton8: TToolButton
                        Left = 0
                        Top = 0
                        Action = aNewNorm
                        Wrap = True
                      end
                      object ToolButton9: TToolButton
                        Left = 0
                        Top = 23
                        Action = aEditNorm
                        Wrap = True
                      end
                      object ToolButton10: TToolButton
                        Left = 0
                        Top = 46
                        Action = aDelNorm
                      end
                    end
                    object dbgNormDates: TDBGridEh
                      Left = 24
                      Top = 0
                      Width = 580
                      Height = 174
                      Align = alClient
                      Constraints.MinWidth = 200
                      DataGrouping.GroupLevels = <>
                      DataSource = dsc_NormDates
                      Flat = True
                      FooterColor = clWindow
                      FooterFont.Charset = DEFAULT_CHARSET
                      FooterFont.Color = clWindowText
                      FooterFont.Height = -11
                      FooterFont.Name = 'MS Sans Serif'
                      FooterFont.Style = []
                      OddRowColor = clInactiveCaptionText
                      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                      ReadOnly = True
                      RowDetailPanel.Active = True
                      RowDetailPanel.Height = 95
                      RowDetailPanel.ActiveControl = dbgNorms
                      RowDetailPanel.BevelInner = bvNone
                      RowDetailPanel.BevelOuter = bvRaised
                      RowDetailPanel.BevelKind = bkFlat
                      RowDetailPanel.BorderStyle = bsNone
                      RowDetailPanel.Color = clBtnFace
                      TabOrder = 1
                      TitleFont.Charset = DEFAULT_CHARSET
                      TitleFont.Color = clWindowText
                      TitleFont.Height = -11
                      TitleFont.Name = 'MS Sans Serif'
                      TitleFont.Style = []
                      UseMultiTitle = True
                      VTitleMargin = 5
                      OnKeyUp = dbgOperationsKeyUp
                      OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
                      Columns = <
                        item
                          EditButtons = <>
                          FieldName = 'RBDATE'
                          Footers = <>
                        end
                        item
                          EditButtons = <>
                          FieldName = 'RSUPER_NORM'
                          Footers = <>
                          KeyList.Strings = (
                            '0'
                            '1')
                          PickList.Strings = (
                            #1053#1077#1090
                            #1044#1072)
                          Visible = False
                        end
                        item
                          Alignment = taLeftJustify
                          EditButtons = <>
                          FieldName = 'RGEN_NORM'
                          Footers = <>
                          KeyList.Strings = (
                            '-1'
                            '0'
                            '1')
                          PickList.Strings = (
                            #1044#1086#1084#1086#1074#1072#1103' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1072#1103
                            #1048#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1072#1103
                            #1054#1073#1097#1072#1103)
                          Width = 140
                        end
                        item
                          EditButtons = <>
                          FieldName = 'SERVICE'
                          Footers = <>
                          Width = 192
                        end
                        item
                          EditButtons = <>
                          FieldName = 'NORMS'
                          Footers = <>
                        end>
                      object RowDetailData: TRowDetailPanelControlEh
                        object dbgNorms: TDBGridEh
                          Left = 0
                          Top = 0
                          Width = 503
                          Height = 93
                          Align = alClient
                          Constraints.MinWidth = 130
                          DataGrouping.GroupLevels = <>
                          DataSource = dsc_Norms
                          Flat = True
                          FooterColor = clWindow
                          FooterFont.Charset = DEFAULT_CHARSET
                          FooterFont.Color = clWindowText
                          FooterFont.Height = -11
                          FooterFont.Name = 'MS Sans Serif'
                          FooterFont.Style = []
                          OddRowColor = clInactiveCaptionText
                          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                          ReadOnly = True
                          RowDetailPanel.Color = clBtnFace
                          TabOrder = 0
                          TitleFont.Charset = DEFAULT_CHARSET
                          TitleFont.Color = clWindowText
                          TitleFont.Height = -11
                          TitleFont.Name = 'MS Sans Serif'
                          TitleFont.Style = []
                          UseMultiTitle = True
                          VTitleMargin = 5
                          OnKeyUp = dbgNormsKeyUp
                          Columns = <
                            item
                              EditButtons = <>
                              FieldName = 'RNORM'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RSEQ'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RNORM_ID'
                              Footers = <>
                              Visible = False
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RCREATEDATE'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'CREATEUSER'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'RMODIFYDATE'
                              Footers = <>
                            end
                            item
                              EditButtons = <>
                              FieldName = 'MODIFYUSER'
                              Footers = <>
                            end>
                          object RowDetailData: TRowDetailPanelControlEh
                          end
                        end
                      end
                    end
                  end
                end
              end
            end
          end
        end
        object tsDogHistory: TTabSheet
          Caption = #1048#1089#1090#1086#1088#1080#1103
          ImageIndex = 1
          object gbOldDog: TGroupBox
            Left = 0
            Top = 282
            Width = 616
            Height = 145
            Align = alBottom
            Caption = ' '#1057#1090#1072#1088#1099#1077' '#1076#1086#1075#1086#1074#1086#1088#1099' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object dbgOldDogovors: TDBGridEh
              Left = 2
              Top = 15
              Width = 612
              Height = 128
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Dogovors
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              OddRowColor = clInactiveCaptionText
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              PopupMenu = pmOldDogovors
              ReadOnly = True
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ID'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'MANAG'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'SERVICE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'SUPPLIER'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'BALANCE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'PENI'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'BDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'EDATE'
                  Footers = <>
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
          object pcHist: TPageControl
            Left = 0
            Top = 0
            Width = 616
            Height = 282
            ActivePage = TabSheet3
            Align = alClient
            Style = tsFlatButtons
            TabOrder = 1
            OnChange = PageControlChange
            object TabSheet1: TTabSheet
              Caption = #1048#1089#1090#1086#1088#1080#1103' '#1089#1074#1086#1081#1089#1090#1074
              object ToolBar8: TToolBar
                Left = 0
                Top = 0
                Width = 608
                Height = 24
                ButtonHeight = 23
                Caption = 'ToolBar2'
                EdgeBorders = []
                Flat = True
                Images = MAIN.ImageList
                TabOrder = 0
                object ToolButton33: TToolButton
                  Left = 0
                  Top = 0
                  Action = aDelDogHistory
                end
              end
              object dbgDogovorHist: TDBGridEh
                Left = 0
                Top = 24
                Width = 608
                Height = 227
                Align = alClient
                DataGrouping.GroupLevels = <>
                DataSource = dsc_DogovorHist
                Flat = True
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                FooterColor = clWindow
                FooterFont.Charset = DEFAULT_CHARSET
                FooterFont.Color = clWindowText
                FooterFont.Height = -11
                FooterFont.Name = 'MS Sans Serif'
                FooterFont.Style = [fsBold]
                OddRowColor = clInactiveCaptionText
                Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                ParentFont = False
                ReadOnly = True
                RowDetailPanel.Color = clBtnFace
                TabOrder = 1
                TitleFont.Charset = DEFAULT_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -11
                TitleFont.Name = 'MS Sans Serif'
                TitleFont.Style = []
                UseMultiTitle = True
                VTitleMargin = 5
                Columns = <
                  item
                    EditButtons = <>
                    FieldName = 'RRECORD_ID'
                    Footers = <>
                    Visible = False
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RFIELD_NAME'
                    Footers = <>
                    Visible = False
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RFIELD_DESCRIPTION'
                    Footers = <>
                    Width = 126
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RFIELD_VALUE'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RDOCDATE'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RCREATER'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RCREATEDATE'
                    Footers = <>
                  end>
                object RowDetailData: TRowDetailPanelControlEh
                end
              end
            end
            object TabSheet3: TTabSheet
              Caption = #1048#1089#1090#1086#1088#1080#1103' '#1072#1082#1090#1080#1074#1085#1086#1089#1090#1080
              ImageIndex = 1
              object ToolBar4: TToolBar
                Left = 0
                Top = 0
                Width = 608
                Height = 24
                ButtonHeight = 23
                Caption = 'ToolBar2'
                EdgeBorders = []
                Flat = True
                Images = MAIN.ImageList
                TabOrder = 0
                object ToolButton11: TToolButton
                  Left = 0
                  Top = 0
                  Action = aDelDogStatHist
                end
              end
              object DBGridEh1: TDBGridEh
                Left = 0
                Top = 24
                Width = 608
                Height = 227
                Align = alClient
                DataGrouping.GroupLevels = <>
                DataSource = dsc_DogStatHist
                Flat = True
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                FooterColor = clWindow
                FooterFont.Charset = DEFAULT_CHARSET
                FooterFont.Color = clWindowText
                FooterFont.Height = -11
                FooterFont.Name = 'MS Sans Serif'
                FooterFont.Style = [fsBold]
                OddRowColor = clInactiveCaptionText
                Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                ParentFont = False
                ReadOnly = True
                RowDetailPanel.Color = clBtnFace
                TabOrder = 1
                TitleFont.Charset = DEFAULT_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -11
                TitleFont.Name = 'MS Sans Serif'
                TitleFont.Style = []
                UseMultiTitle = True
                VTitleMargin = 5
                Columns = <
                  item
                    EditButtons = <>
                    FieldName = 'RDOCDATE'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'ROPER_NAME'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RCREATEUSER'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RCREATEDATE'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RMODIFYUSER'
                    Footers = <>
                  end
                  item
                    EditButtons = <>
                    FieldName = 'RMODIFYDATE'
                    Footers = <>
                  end>
                object RowDetailData: TRowDetailPanelControlEh
                end
              end
            end
          end
        end
      end
    end
    object OperSheet: TTabSheet
      Caption = #1054#1087#1077#1088#1072#1094#1080#1080
      ImageIndex = 1
      object gbDogSaldo: TGroupBox
        Left = 0
        Top = 417
        Width = 624
        Height = 38
        Align = alBottom
        Caption = ' '#1057#1072#1083#1100#1076#1086' '#1076#1086#1075#1086#1074#1086#1088#1072' '
        TabOrder = 0
        DesignSize = (
          624
          38)
        object Label16: TLabel
          Left = 146
          Top = 15
          Width = 87
          Height = 13
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          Caption = #1057#1072#1083#1100#1076#1086' '#1076#1086#1075#1086#1074#1086#1088#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label20: TLabel
          Left = 401
          Top = 15
          Width = 64
          Height = 13
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          Caption = #1057#1072#1083#1100#1076#1086' '#1087#1077#1085#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeSaldoDogovor: TDBEditEh
          Left = 239
          Top = 13
          Width = 108
          Height = 19
          AlwaysShowBorder = True
          Anchors = [akTop, akRight]
          Color = clInfoBk
          DataField = 'BALANCE'
          DataSource = dsc_DogovorsList
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Visible = True
        end
        object dbePeniDogovor: TDBEditEh
          Left = 471
          Top = 13
          Width = 108
          Height = 19
          AlwaysShowBorder = True
          Anchors = [akTop, akRight]
          Color = clInfoBk
          DataField = 'PENI'
          DataSource = dsc_DogovorsList
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Flat = True
          ParentFont = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
      end
      object pcOperations: TPageControl
        Left = 0
        Top = 75
        Width = 624
        Height = 342
        ActivePage = tsOperByMonth
        Align = alClient
        Style = tsFlatButtons
        TabOrder = 1
        OnChange = PageControlChange
        object tsOperByPeriod: TTabSheet
          Caption = #1055#1086' '#1087#1077#1088#1080#1086#1076#1091' '#1086#1087#1077#1088#1072#1094#1080#1080
          object Panel10: TPanel
            Left = 0
            Top = 0
            Width = 616
            Height = 311
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object dbgOperations: TDBGridEh
              Left = 0
              Top = 0
              Width = 616
              Height = 311
              Align = alClient
              AllowedOperations = []
              Constraints.MinWidth = 330
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Operations
              EditActions = [geaCopyEh]
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              FooterRowCount = 1
              OddRowColor = clWindow
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Active = True
              RowDetailPanel.ActiveControl = dbgOperDetail
              RowDetailPanel.BevelInner = bvNone
              RowDetailPanel.BevelOuter = bvRaised
              RowDetailPanel.BevelKind = bkFlat
              RowDetailPanel.BorderStyle = bsNone
              RowDetailPanel.Color = clBtnFace
              SortLocal = True
              SumList.Active = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              OnDblClick = dbgOperByMonthDblClick
              OnGetCellParams = dbgOperationsGetCellParams
              OnKeyUp = dbgOperationsKeyUp
              OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'RNAME'
                  Footer.Value = #1048#1090#1086#1075#1086':'
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Title.TitleButton = True
                  Width = 203
                end
                item
                  EditButtons = <>
                  FieldName = 'PERIOD'
                  Footers = <>
                  Title.TitleButton = True
                  Width = 83
                end
                item
                  EditButtons = <>
                  FieldName = 'RSUMMA_ABS'
                  Footer.FieldName = 'RSUMMA'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Title.TitleButton = True
                  Width = 81
                end
                item
                  DisplayFormat = '#0.00000000'
                  EditButtons = <>
                  FieldName = 'RPAYDCOUNT'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Title.TitleButton = True
                  Width = 108
                end
                item
                  EditButtons = <>
                  FieldName = 'RSUMMA_EX'
                  Footer.FieldName = 'RSUMMA_EX'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Width = 88
                end>
              object RowDetailData: TRowDetailPanelControlEh
                object dbgOperDetail: TDBGridEh
                  Left = 0
                  Top = 0
                  Width = 547
                  Height = 118
                  Align = alClient
                  DataGrouping.GroupLevels = <>
                  DataSource = dsc_OperDetails
                  Flat = True
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  FooterColor = clWindow
                  FooterFont.Charset = DEFAULT_CHARSET
                  FooterFont.Color = clWindowText
                  FooterFont.Height = -11
                  FooterFont.Name = 'MS Sans Serif'
                  FooterFont.Style = [fsBold]
                  Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                  OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                  ParentFont = False
                  RowDetailPanel.Color = clBtnFace
                  SortLocal = True
                  TabOrder = 0
                  TitleFont.Charset = DEFAULT_CHARSET
                  TitleFont.Color = clWindowText
                  TitleFont.Height = -11
                  TitleFont.Name = 'MS Sans Serif'
                  TitleFont.Style = []
                  UseMultiTitle = True
                  VTitleMargin = 5
                  OnDblClick = dbgOperDetailDblClick
                  OnKeyUp = dbgOperDetailKeyUp
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'RSUMMA'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 67
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RDOCDATE'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 85
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RINCOMPLETE'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 80
                    end
                    item
                      DisplayFormat = '#0.000000'
                      EditButtons = <>
                      FieldName = 'RPAIDCOUNT'
                      Footers = <>
                      Title.TitleButton = True
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RDOG_NAME'
                      Footers = <>
                      Title.TitleButton = True
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RPAY_ID'
                      Footers = <>
                    end>
                  object RowDetailData: TRowDetailPanelControlEh
                  end
                end
              end
            end
          end
        end
        object tsOperByMonth: TTabSheet
          Caption = #1055#1086' '#1084#1077#1089#1103#1094#1091' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103
          ImageIndex = 1
          object Panel11: TPanel
            Left = 0
            Top = 0
            Width = 616
            Height = 311
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object dbgOperByMonth: TDBGridEh
              Left = 0
              Top = 0
              Width = 616
              Height = 311
              Align = alClient
              AllowedOperations = []
              Constraints.MinWidth = 330
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Operations
              EditActions = [geaCopyEh]
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              FooterRowCount = 1
              OddRowColor = clWindow
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Active = True
              RowDetailPanel.ActiveControl = dbgOperDetailByMonth
              RowDetailPanel.BevelInner = bvNone
              RowDetailPanel.BevelOuter = bvRaised
              RowDetailPanel.BevelKind = bkFlat
              RowDetailPanel.BorderStyle = bsNone
              RowDetailPanel.Color = clBtnFace
              SortLocal = True
              SumList.Active = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              OnDblClick = dbgOperByMonthDblClick
              OnGetCellParams = dbgOperationsGetCellParams
              OnKeyUp = dbgOperationsKeyUp
              OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'RNAME'
                  Footer.Value = #1048#1090#1086#1075#1086':'
                  Footer.ValueType = fvtStaticText
                  Footers = <>
                  Width = 179
                end
                item
                  EditButtons = <>
                  FieldName = 'PERIOD'
                  Footers = <>
                  Title.Caption = #1052#1077#1089#1103#1094' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1103
                  Width = 86
                end
                item
                  EditButtons = <>
                  FieldName = 'RSUMMA_ABS'
                  Footer.FieldName = 'RSUMMA'
                  Footer.ValueType = fvtSum
                  Footers = <>
                end
                item
                  DisplayFormat = '#0.000000'
                  EditButtons = <>
                  FieldName = 'RPAYDCOUNT'
                  Footer.FieldName = 'RPAYDCOUNT'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Width = 101
                end
                item
                  EditButtons = <>
                  FieldName = 'RSUMMA_EX'
                  Footer.FieldName = 'RSUMMA_EX'
                  Footer.ValueType = fvtSum
                  Footers = <>
                  Width = 122
                end>
              object RowDetailData: TRowDetailPanelControlEh
                object dbgOperDetailByMonth: TDBGridEh
                  Left = 0
                  Top = 0
                  Width = 536
                  Height = 118
                  Align = alClient
                  DataGrouping.GroupLevels = <>
                  DataSource = dsc_OperDetails
                  Flat = True
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -11
                  Font.Name = 'MS Sans Serif'
                  Font.Style = []
                  FooterColor = clWindow
                  FooterFont.Charset = DEFAULT_CHARSET
                  FooterFont.Color = clWindowText
                  FooterFont.Height = -11
                  FooterFont.Name = 'MS Sans Serif'
                  FooterFont.Style = [fsBold]
                  Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
                  OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
                  ParentFont = False
                  RowDetailPanel.Color = clBtnFace
                  SortLocal = True
                  TabOrder = 0
                  TitleFont.Charset = DEFAULT_CHARSET
                  TitleFont.Color = clWindowText
                  TitleFont.Height = -11
                  TitleFont.Name = 'MS Sans Serif'
                  TitleFont.Style = []
                  UseMultiTitle = True
                  VTitleMargin = 5
                  OnDblClick = dbgOperDetailDblClick
                  OnKeyUp = dbgOperDetailByMonthKeyUp
                  Columns = <
                    item
                      EditButtons = <>
                      FieldName = 'RSUMMA'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 75
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RPERIOD'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 85
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RINCOMPLETE'
                      Footers = <>
                      Title.TitleButton = True
                      Width = 80
                    end
                    item
                      DisplayFormat = '#0.000000'
                      EditButtons = <>
                      FieldName = 'RPAIDCOUNT'
                      Footers = <>
                      Title.TitleButton = True
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RDOG_NAME'
                      Footers = <>
                      Title.TitleButton = True
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RDOCDATE'
                      Footers = <>
                    end
                    item
                      EditButtons = <>
                      FieldName = 'RPAY_ID'
                      Footers = <>
                    end>
                  object RowDetailData: TRowDetailPanelControlEh
                  end
                end
              end
            end
          end
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 624
        Height = 75
        Align = alTop
        BevelOuter = bvNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object gbOperDate: TGroupBox
          Left = 0
          Top = 0
          Width = 225
          Height = 46
          Align = alLeft
          Caption = '                             '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label17: TLabel
            Left = 10
            Top = 20
            Width = 6
            Height = 13
            Alignment = taRightJustify
            Caption = #1089
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label19: TLabel
            Left = 109
            Top = 20
            Width = 12
            Height = 13
            Alignment = taRightJustify
            Caption = #1087#1086
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object rbDocdate: TRadioButton
            Left = 11
            Top = -1
            Width = 57
            Height = 17
            Caption = #1044#1072#1090#1072
            Checked = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            TabStop = True
          end
          object rbPeriod: TRadioButton
            Left = 67
            Top = -1
            Width = 127
            Height = 17
            Caption = #1055#1077#1088#1080#1086#1076' '#1086#1087#1077#1088#1072#1094#1080#1080
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
          end
          object deOperBdate: TDBDateTimeEditEh
            Left = 23
            Top = 18
            Width = 81
            Height = 21
            AlwaysShowBorder = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 2
            Visible = True
          end
          object deOperEdate: TDBDateTimeEditEh
            Left = 127
            Top = 18
            Width = 81
            Height = 21
            AlwaysShowBorder = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ShowHint = True
            TabOrder = 3
            Visible = True
          end
        end
        object ToolBar10: TToolBar
          Left = 0
          Top = 46
          Width = 624
          Height = 29
          Align = alBottom
          Caption = 'ToolBar5'
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 1
          object ToolButton36: TToolButton
            Left = 0
            Top = 0
            Action = aNewOperation
          end
          object ToolButton37: TToolButton
            Left = 23
            Top = 0
            Action = aEditOperation
          end
          object ToolButton39: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton17'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton40: TToolButton
            Left = 54
            Top = 0
            Action = aSearchOperations
          end
          object ToolButton41: TToolButton
            Left = 77
            Top = 0
            Width = 8
            Caption = 'ToolButton22'
            ImageIndex = 8
            Style = tbsSeparator
          end
          object ToolButton42: TToolButton
            Left = 85
            Top = 0
            Action = aDelOperation
          end
          object ToolButton43: TToolButton
            Left = 108
            Top = 0
            Width = 8
            Caption = 'ToolButton19'
            ImageIndex = 3
            Style = tbsSeparator
            Visible = False
          end
          object ToolButton44: TToolButton
            Left = 116
            Top = 0
            Action = aExportOperations
          end
          object ToolButton45: TToolButton
            Left = 139
            Top = 0
            Width = 8
            Caption = 'ToolButton30'
            ImageIndex = 8
            Style = tbsSeparator
          end
          object ToolButton46: TToolButton
            Left = 147
            Top = 0
            Action = aCharge
          end
        end
        object gbOperDog: TGroupBox
          Left = 225
          Top = 0
          Width = 399
          Height = 46
          Align = alClient
          Caption = ' '#1044#1086#1075#1086#1074#1086#1088' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          DesignSize = (
            399
            46)
          object lcbDogovors: TDBLookupComboboxEh
            Left = 12
            Top = 18
            Width = 377
            Height = 21
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'DOG_NAME'
            ListSource = dsc_DogovorsList
            ParentFont = False
            ShowHint = True
            TabOrder = 0
            Visible = True
          end
        end
      end
    end
    object NoteSheet: TTabSheet
      Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1103
      ImageIndex = 2
      object gbExempts: TGroupBox
        Left = 0
        Top = 0
        Width = 624
        Height = 120
        Align = alTop
        Caption = ' '#1051#1100#1075#1086#1090#1085#1080#1082#1080' '
        TabOrder = 0
        object dbgExempts: TDBGridEh
          Left = 2
          Top = 15
          Width = 620
          Height = 103
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_Exempts
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'REXEMPT_NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RCLIENT_NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'REX_TYPE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RBDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'REDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RVAL'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'REXEMPT_DOC'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RKINDEXTYPE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RKINDEXNORM'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RCARRIER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RADDITIONAL'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RDEPENDENT'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RNEAR_RELATION'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RBUDGET'
              Footers = <>
              Width = 333
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object Panel12: TPanel
        Left = 0
        Top = 120
        Width = 624
        Height = 335
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel13: TPanel
          Left = 201
          Top = 0
          Width = 423
          Height = 335
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 0
          object gbSystemData: TGroupBox
            Left = 0
            Top = 242
            Width = 423
            Height = 93
            Align = alBottom
            Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            DesignSize = (
              423
              93)
            object Label26: TLabel
              Left = 16
              Top = 19
              Width = 37
              Height = 13
              Alignment = taRightJustify
              Caption = #1057#1086#1079#1076#1072#1083
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label27: TLabel
              Left = 248
              Top = 19
              Width = 77
              Height = 13
              Alignment = taRightJustify
              Anchors = [akTop, akRight]
              Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label28: TLabel
              Left = 7
              Top = 43
              Width = 46
              Height = 13
              Alignment = taRightJustify
              Caption = #1048#1079#1084#1077#1085#1080#1083
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label29: TLabel
              Left = 240
              Top = 43
              Width = 85
              Height = 13
              Alignment = taRightJustify
              Anchors = [akTop, akRight]
              Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label42: TLabel
              Left = 36
              Top = 67
              Width = 17
              Height = 13
              Alignment = taRightJustify
              Caption = #1048#1044
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label15: TLabel
              Left = 258
              Top = 67
              Width = 67
              Height = 13
              Alignment = taRightJustify
              Anchors = [akTop, akRight]
              Caption = #1048#1044' '#1072#1073#1086#1085#1077#1085#1090#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object dbeCreater: TDBEditEh
              Left = 58
              Top = 16
              Width = 170
              Height = 21
              AlwaysShowBorder = True
              Anchors = [akLeft, akTop, akRight]
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'CREATER'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 0
              Visible = True
            end
            object dbeCreateDate: TDBEditEh
              Left = 330
              Top = 16
              Width = 85
              Height = 21
              AlwaysShowBorder = True
              Anchors = [akTop, akRight]
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'CREATEDATE'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 1
              Visible = True
            end
            object dbeModifier: TDBEditEh
              Left = 58
              Top = 40
              Width = 170
              Height = 21
              AlwaysShowBorder = True
              Anchors = [akLeft, akTop, akRight]
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'MODIFIER'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 2
              Visible = True
            end
            object dbeModifyDate: TDBEditEh
              Left = 330
              Top = 40
              Width = 85
              Height = 21
              AlwaysShowBorder = True
              Anchors = [akTop, akRight]
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'MODIFYDATE'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 3
              Visible = True
            end
            object dbeID: TDBEditEh
              Left = 58
              Top = 64
              Width = 85
              Height = 21
              AlwaysShowBorder = True
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'ID'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 4
              Visible = True
            end
            object dbeAbonId: TDBEditEh
              Left = 330
              Top = 64
              Width = 85
              Height = 21
              AlwaysShowBorder = True
              Anchors = [akTop, akRight]
              Color = clInactiveCaptionText
              Ctl3D = True
              DataField = 'ABONENT_ID'
              DataSource = dsc_AbonService
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentCtl3D = False
              ParentFont = False
              ReadOnly = True
              ShowHint = True
              TabOrder = 5
              Visible = True
            end
          end
          object gbStoki: TGroupBox
            Left = 0
            Top = 0
            Width = 423
            Height = 242
            Align = alClient
            Caption = ' '#1057#1090#1086#1082#1080' '
            TabOrder = 1
            object dbgStok: TDBGridEh
              Left = 2
              Top = 15
              Width = 419
              Height = 225
              Align = alClient
              AllowedOperations = []
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Stoki
              EditActions = [geaCopyEh]
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              OddRowColor = clInactiveCaptionText
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ID'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
        end
        object gbNote: TGroupBox
          Left = 0
          Top = 0
          Width = 201
          Height = 335
          Align = alClient
          Caption = ' '#1055#1088#1080#1084#1077#1095#1072#1085#1080#1103' '
          TabOrder = 1
          object dbmNote: TDBMemo
            Left = 2
            Top = 15
            Width = 197
            Height = 318
            Align = alClient
            BevelKind = bkFlat
            BorderStyle = bsNone
            Ctl3D = True
            DataField = 'NOTE'
            DataSource = dsc_AbonService
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
          end
        end
      end
    end
    object MeterSheet: TTabSheet
      Caption = #1057#1095#1077#1090#1095#1080#1082#1080
      ImageIndex = 4
      object gbMeters: TGroupBox
        Left = 0
        Top = 0
        Width = 624
        Height = 116
        Align = alTop
        Caption = ' '#1059#1089#1090#1072#1085#1086#1074#1083#1077#1085#1085#1099#1077' '#1089#1095#1077#1090#1095#1080#1082#1080' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Panel15: TPanel
          Left = 2
          Top = 15
          Width = 620
          Height = 17
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object cbShowOldMeter: TCheckBox
            Left = 4
            Top = 0
            Width = 161
            Height = 17
            Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1089#1085#1103#1090#1099#1077
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = cbShowOldMeterClick
          end
        end
        object dbgMeters: TDBGridEh
          Left = 25
          Top = 32
          Width = 597
          Height = 82
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_Meters
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnDblClick = aMeterEditExecute
          Columns = <
            item
              EditButtons = <>
              FieldName = 'METER_NUM'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'MTYPE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SAY_IND'
              Footers = <>
              Width = 76
            end
            item
              EditButtons = <>
              FieldName = 'LS'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object ToolBar7: TToolBar
          Left = 2
          Top = 32
          Width = 23
          Height = 82
          Align = alLeft
          ButtonHeight = 23
          Caption = 'ToolBar2'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 2
          object ToolButton27: TToolButton
            Left = 0
            Top = 0
            Action = aMeterMount
            Wrap = True
          end
          object ToolButton28: TToolButton
            Left = 0
            Top = 23
            Action = aMeterEdit
            Wrap = True
          end
          object ToolButton29: TToolButton
            Left = 0
            Top = 46
            Action = aMeterDismount
          end
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 116
        Width = 624
        Height = 339
        Align = alClient
        Caption = ' '#1040#1082#1090#1099' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103' '
        TabOrder = 1
        object dbgActs: TDBGridEh
          Left = 2
          Top = 44
          Width = 620
          Height = 293
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_Acts
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          PopupMenu = pmActs
          RowDetailPanel.Active = True
          RowDetailPanel.Height = 95
          RowDetailPanel.ActiveControl = dbgActMeterInd
          RowDetailPanel.BevelInner = bvNone
          RowDetailPanel.BevelOuter = bvRaised
          RowDetailPanel.BevelKind = bkFlat
          RowDetailPanel.BorderStyle = bsNone
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnDblClick = dbgOperByMonthDblClick
          OnGetCellParams = dbgActsGetCellParams
          OnKeyUp = dbgOperationsKeyUp
          OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
          Columns = <
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ACT_DATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'BDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'POTR'
              Footers = <>
              Width = 96
            end>
          object RowDetailData: TRowDetailPanelControlEh
            object dbgActMeterInd: TDBGridEh
              Left = 0
              Top = 0
              Width = 461
              Height = 93
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dsc_ActMeterInd
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              OnGetCellParams = dbgActMeterIndGetCellParams
              OnKeyUp = dbgActMeterIndKeyUp
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'METER_NUM'
                  Footers = <>
                  Width = 116
                end
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                  Width = 119
                end
                item
                  EditButtons = <>
                  FieldName = 'PH'
                  Footers = <>
                  Width = 70
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
        end
        object ToolBar9: TToolBar
          Left = 2
          Top = 15
          Width = 620
          Height = 29
          Caption = 'ToolBar5'
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 1
          object ToolButton13: TToolButton
            Left = 0
            Top = 0
            Action = aShowCrdAccpoint
          end
          object ToolButton14: TToolButton
            Left = 23
            Top = 0
            Width = 8
            Caption = 'ToolButton17'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton32: TToolButton
            Left = 31
            Top = 0
            Action = aRefreshActList
          end
          object ToolButton34: TToolButton
            Left = 54
            Top = 0
            Width = 8
            Caption = 'ToolButton22'
            ImageIndex = 8
            Style = tbsSeparator
          end
          object ToolButton35: TToolButton
            Left = 62
            Top = 0
            Action = aDeleteAct
          end
          object ToolButton38: TToolButton
            Left = 85
            Top = 0
            Width = 8
            Caption = 'ToolButton30'
            ImageIndex = 8
            Style = tbsSeparator
          end
          object ToolButton12: TToolButton
            Left = 93
            Top = 0
            Action = aRecalcAct
          end
        end
      end
    end
    object PotrSheet: TTabSheet
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      ImageIndex = 6
      object gbPotr: TGroupBox
        Left = 0
        Top = 0
        Width = 624
        Height = 258
        Align = alClient
        Caption = ' '#1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '#1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1091' '
        TabOrder = 0
        object Splitter4: TSplitter
          Left = 244
          Top = 15
          Height = 241
          Align = alRight
          AutoSnap = False
          MinSize = 190
        end
        object dbgPotr: TDBGridEh
          Left = 2
          Top = 15
          Width = 242
          Height = 241
          Align = alClient
          AllowedOperations = []
          DataGrouping.GroupLevels = <>
          DataSource = dsc_DogPotrs
          EditActions = [geaCopyEh]
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          FooterRowCount = 1
          OddRowColor = clWindow
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnGetCellParams = dbgOperationsGetCellParams
          Columns = <
            item
              EditButtons = <>
              FieldName = 'PERIOD'
              Footer.Value = #1048#1090#1086#1075#1086':'
              Footer.ValueType = fvtStaticText
              Footers = <>
            end
            item
              DisplayFormat = '#0.00000000'
              EditButtons = <>
              FieldName = 'SUM_POTR'
              Footer.FieldName = 'SUM_POTR'
              Footer.ValueType = fvtSum
              Footers = <>
              Width = 94
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object gbPotrDetail: TGroupBox
          Left = 247
          Top = 15
          Width = 375
          Height = 241
          Align = alRight
          Caption = ' '#1055#1086#1076#1088#1086#1073#1085#1086' '#1087#1086' '#1087#1077#1088#1080#1086#1076#1091' '
          TabOrder = 1
          object dbgPotrDetail: TDBGridEh
            Left = 2
            Top = 15
            Width = 371
            Height = 224
            Align = alClient
            AllowedOperations = []
            DataGrouping.GroupLevels = <>
            DataSource = dsc_DogPotrsDetail
            EditActions = [geaCopyEh]
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            OddRowColor = clWindow
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            OnGetCellParams = dbgPotrDetailGetCellParams
            Columns = <
              item
                EditButtons = <>
                FieldName = 'POTR_TYPE'
                Footers = <>
              end
              item
                DisplayFormat = '#0.00000000'
                EditButtons = <>
                FieldName = 'SUM'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'ACT_ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'INCOMPLETE'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
      end
      object bIncomplete: TGroupBox
        Left = 0
        Top = 258
        Width = 624
        Height = 197
        Align = alBottom
        Caption = ' '#1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1080' '
        Constraints.MinHeight = 160
        TabOrder = 1
        object ToolBar6: TToolBar
          Left = 2
          Top = 15
          Width = 620
          Height = 24
          ButtonHeight = 23
          Caption = 'ToolBar2'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 0
          object ToolButton23: TToolButton
            Left = 0
            Top = 0
            Action = aNewIncomplete
          end
          object ToolButton24: TToolButton
            Left = 23
            Top = 0
            Action = aEditIncomplete
          end
          object ToolButton25: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton14'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton26: TToolButton
            Left = 54
            Top = 0
            Action = aDelIncomplete
          end
        end
        object dbgIncomplete: TDBGridEh
          Left = 2
          Top = 39
          Width = 620
          Height = 156
          Align = alClient
          Constraints.MinHeight = 100
          Constraints.MinWidth = 200
          DataGrouping.GroupLevels = <>
          DataSource = dsc_Incomplete
          EvenRowColor = clWindow
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Active = True
          RowDetailPanel.Height = 95
          RowDetailPanel.ActiveControl = dbgIncompleteCharged
          RowDetailPanel.BevelInner = bvNone
          RowDetailPanel.BevelOuter = bvRaised
          RowDetailPanel.BevelKind = bkSoft
          RowDetailPanel.BorderStyle = bsNone
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          OnDblClick = dbgOperByMonthDblClick
          OnGetCellParams = dbgIncompleteGetCellParams
          OnKeyUp = dbgOperationsKeyUp
          OnAfterRowDetailPanelShow = dbgActsAfterRowDetailPanelShow
          Columns = <
            item
              EditButtons = <>
              FieldName = 'SUPPLIER_ID'
              Footers = <>
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'SUPPLIER_DEPT'
              Footers = <>
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'BDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'IPERCENT'
              Footers = <>
              Width = 50
            end
            item
              EditButtons = <>
              FieldName = 'DI_POTR'
              Footers = <>
              Width = 55
            end
            item
              EditButtons = <>
              FieldName = 'IS_CHARGED'
              Footers = <>
              Width = 62
            end
            item
              EditButtons = <>
              FieldName = 'SUPPLIER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'SUPPLIER_DEPT1'
              Footers = <>
              Width = 142
            end
            item
              EditButtons = <>
              FieldName = 'ID'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ACT_ID'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
            object dbgIncompleteCharged: TDBGridEh
              Left = 0
              Top = 0
              Width = 597
              Height = 90
              Align = alClient
              Constraints.MinHeight = 90
              Constraints.MinWidth = 200
              DataGrouping.GroupLevels = <>
              DataSource = dsc_IncompleteCharge
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = [fsBold]
              OddRowColor = clInactiveCaptionText
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Height = 95
              RowDetailPanel.BevelInner = bvNone
              RowDetailPanel.BevelOuter = bvNone
              RowDetailPanel.BevelKind = bkFlat
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              OnKeyUp = dbgIncompleteChargedKeyUp
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'RSUMMA'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RDOCDATE'
                  Footers = <>
                  Width = 85
                end
                item
                  EditButtons = <>
                  FieldName = 'REX_SUMMA'
                  Footers = <>
                  Width = 100
                end
                item
                  EditButtons = <>
                  FieldName = 'RNOTE'
                  Footers = <>
                  Width = 274
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
        end
      end
    end
  end
  inline TfraSubstanceInfo1: TfraSubstanceInfo [3]
    Left = 632
    Top = 28
    Width = 211
    Height = 486
    Align = alRight
    Constraints.MinWidth = 200
    TabOrder = 3
    inherited TopPanel: TPanel
      Width = 211
      Height = 0
    end
    inherited BottomPanel: TPanel
      Top = 486
      Width = 211
      Height = 0
    end
    inherited PageControl: TPageControl
      Top = 0
      Width = 211
      Height = 486
      inherited TSInfo: TTabSheet
        Caption = ' '#1040#1073#1086#1085#1077#1085#1090' '
        inherited InfoGrid: TDBGridEh
          Width = 203
          Height = 455
        end
      end
      inherited TSNote: TTabSheet
        inherited dbmNote: TDBMemo
          Width = 203
          Height = 602
        end
      end
    end
    inherited QSubstanceInfo: TpFIBDataSet
      SelectSQL.Strings = (
        'SELECT'
        '    RFIELD_NAME as NAME,'
        '    RFIELD_VALUE as VAL'
        'FROM'
        '    PROC_ABONENT_GET_PROP_LIST(:PABONENT_ID) ')
      Transaction = LocalTrans
      UpdateTransaction = LocalTrans
      Container = dsContainer
    end
  end
  inherited ActionList1: TActionList [4]
    Images = MAIN.ImageList
    Left = 452
    Top = 4
    inherited aSave: TAction
      Category = 'Total'
      Enabled = False
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      Category = 'Total'
      OnExecute = aCancelExecute
    end
    inherited aPrint: TAction
      Category = 'Total'
      OnExecute = aPrintExecute
    end
    object aNewTariff: TAction
      Category = 'Tariffs'
      Caption = #1053#1086#1074#1099#1081' '#1090#1072#1088#1080#1092
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081' '#1090#1072#1088#1080#1092
      ImageIndex = 9
      OnExecute = aNewTariffExecute
    end
    object aEditTariff: TAction
      Category = 'Tariffs'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1090#1072#1088#1080#1092
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081' '#1090#1072#1088#1080#1092
      ImageIndex = 5
      OnExecute = aEditTariffExecute
    end
    object aDelTariff: TAction
      Category = 'Tariffs'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1090#1072#1088#1080#1092
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081' '#1090#1072#1088#1080#1092
      ImageIndex = 2
    end
    object aNewNorm: TAction
      Category = 'Norms'
      Caption = #1053#1086#1074#1072#1103' '#1085#1086#1088#1084#1072' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1091#1102' '#1085#1086#1088#1084#1091
      ImageIndex = 9
      OnExecute = aNewNormExecute
    end
    object aEditNorm: TAction
      Category = 'Norms'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1086#1088#1084#1091
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1091#1102' '#1085#1086#1088#1084#1091
      ImageIndex = 5
      OnExecute = aEditNormExecute
    end
    object aDelNorm: TAction
      Category = 'Norms'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1085#1086#1088#1084#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1091#1102' '#1085#1086#1088#1084#1091
      ImageIndex = 2
    end
    object aNewIncomplete: TAction
      Category = 'Incomplete'
      Caption = #1053#1086#1074#1072#1103' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072
      Hint = #1053#1086#1074#1072#1103' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072
      ImageIndex = 9
      OnExecute = aNewIncompleteExecute
    end
    object aEditIncomplete: TAction
      Category = 'Incomplete'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1091
      Enabled = False
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1091
      ImageIndex = 5
      Visible = False
      OnExecute = aEditIncompleteExecute
    end
    object aDelIncomplete: TAction
      Category = 'Incomplete'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1085#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1091
      ImageIndex = 2
      OnExecute = aDelIncompleteExecute
    end
    object aNewOperation: TAction
      Category = 'Operations'
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1085#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1085#1086#1074#1091#1102' '#1086#1087#1077#1088#1072#1094#1080#1102
      ImageIndex = 9
      OnExecute = aNewOperationExecute
    end
    object aEditOperation: TAction
      Category = 'Operations'
      Caption = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      Hint = #1055#1088#1086#1089#1084#1086#1090#1088#1077#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      ImageIndex = 5
      OnExecute = aEditOperationExecute
    end
    object aDelOperation: TAction
      Category = 'Operations'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102
      ImageIndex = 2
      OnExecute = aDelOperationExecute
    end
    object aExportOperations: TAction
      Category = 'Operations'
      Caption = #1069#1082#1089#1087#1086#1088#1090#1080#1088#1086#1074#1072#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1086#1087#1077#1088#1072#1094#1080#1081
      Enabled = False
      Hint = #1069#1082#1089#1087#1086#1088#1090#1080#1088#1086#1074#1072#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1086#1087#1077#1088#1072#1094#1080#1081
      ImageIndex = 7
      Visible = False
    end
    object aOtherPays: TAction
      Category = 'Operations'
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1087#1088#1086#1095#1080#1077' '#1086#1087#1077#1088#1072#1094#1080#1080
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1087#1088#1086#1095#1080#1077' '#1086#1087#1077#1088#1072#1094#1080#1080
    end
    object aCharge: TAction
      Category = 'Operations'
      Caption = #1057#1086#1079#1076#1072#1090#1100'/'#1087#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      Hint = #1057#1086#1079#1076#1072#1090#1100'/'#1087#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      ImageIndex = 12
      OnExecute = aChargeExecute
    end
    object aShiftMaket: TAction
      Category = 'Operations'
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1089#1076#1074#1080#1075#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1089#1076#1074#1080#1075#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
    end
    object aChangeService: TAction
      Category = 'Total'
      Caption = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1089#1084#1077#1085#1091' '#1074#1080#1076#1072' '#1091#1089#1083#1091#1075#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      Hint = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1089#1084#1077#1085#1091' '#1074#1080#1076#1072' '#1091#1089#1083#1091#1075#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      OnExecute = aChangeServiceExecute
    end
    object aChangeUK: TAction
      Category = 'Total'
      Caption = #1057#1084#1077#1085#1080#1090#1100' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072'/'#1091#1087#1088#1072#1074#1083#1103#1102#1097#1091#1102' '#1082#1086#1084#1087#1072#1085#1080#1102
      Hint = #1057#1084#1077#1085#1080#1090#1100' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072'/'#1091#1087#1088#1072#1074#1083#1103#1102#1097#1091#1102' '#1082#1086#1084#1087#1072#1085#1080#1102
      OnExecute = aChangeUKExecute
    end
    object aCloseDogovor: TAction
      Category = 'Total'
      Caption = #1047#1072#1082#1088#1099#1090#1100' '#1090#1077#1082#1091#1097#1080#1081' '#1076#1086#1075#1086#1074#1086#1088
      Hint = #1047#1072#1082#1088#1099#1090#1100' '#1090#1077#1082#1091#1097#1080#1081' '#1076#1086#1075#1086#1074#1086#1088
      OnExecute = aCloseDogovorExecute
    end
    object aShowCharge: TAction
      Category = 'Total'
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1088#1072#1089#1095#1077#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
      Hint = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1088#1072#1089#1095#1077#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
      OnExecute = aShowChargeExecute
    end
    object aRecalcSaldo: TAction
      Category = 'Total'
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1076#1086#1075#1086#1074#1086#1088#1072
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1076#1086#1075#1086#1074#1086#1088#1072
      OnExecute = aRecalcSaldoExecute
    end
    object aSearchOperations: TAction
      Category = 'Operations'
      Caption = #1055#1086#1080#1089#1082'/'#1086#1073#1085#1086#1074#1080#1090#1100' '#1089#1087#1080#1089#1086#1082
      Hint = #1055#1086#1080#1089#1082'/'#1086#1073#1085#1086#1074#1080#1090#1100' '#1089#1087#1080#1089#1086#1082
      ImageIndex = 11
      OnExecute = aSearchOperationsExecute
    end
    object aNewDocument: TAction
      Category = 'Documents'
      Caption = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1057#1086#1079#1076#1072#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      ImageIndex = 9
    end
    object aEditDocument: TAction
      Category = 'Documents'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      ImageIndex = 5
    end
    object aDelDocument: TAction
      Category = 'Documents'
      Caption = #1059#1076#1083#1072#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090
      ImageIndex = 2
    end
    object aDelDogHistory: TAction
      Category = 'Total'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      ImageIndex = 2
      OnExecute = aDelDogHistoryExecute
    end
    object aMeterMount: TAction
      Category = 'Meters'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      ImageIndex = 9
      OnExecute = N28Click
    end
    object aMeterRefpoint: TAction
      Category = 'Meters'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1090#1086#1095#1082#1091' '#1086#1090#1089#1095#1077#1090#1072
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1090#1086#1095#1082#1091' '#1086#1090#1089#1095#1077#1090#1072
      OnExecute = iRefpointClick
    end
    object aMeterDelete: TAction
      Category = 'Meters'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      ImageIndex = 2
      OnExecute = aMeterDeleteExecute
    end
    object aMeterDismount: TAction
      Category = 'Meters'
      Caption = #1057#1085#1103#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      Hint = #1057#1085#1103#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      ImageIndex = 22
      OnExecute = sbMeterDismountClick
    end
    object aMeterEdit: TAction
      Category = 'Meters'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      Hint = #1057#1085#1103#1090#1100' '#1089#1095#1077#1090#1095#1080#1082
      ImageIndex = 5
      OnExecute = aMeterEditExecute
    end
    object aMoveSaldo: TAction
      Category = 'Total'
      Caption = #1055#1077#1088#1077#1085#1077#1089#1090#1080' '#1089#1072#1083#1100#1076#1086' ...'
      Hint = #1055#1077#1088#1077#1085#1077#1089#1090#1080' '#1089#1072#1083#1100#1076#1086' '#1085#1072' '#1076#1088#1091#1075#1080#1077' '#1076#1086#1075#1086#1074#1086#1088#1072
      OnExecute = aMoveSaldoExecute
    end
    object aChangeStatus: TAction
      Category = 'Total'
      Caption = #1057#1084#1077#1085#1080#1090#1100' '#1089#1090#1072#1090#1091#1089' '#1076#1086#1075#1086#1074#1086#1088#1072
      Hint = #1057#1084#1077#1085#1080#1090#1100' '#1089#1090#1072#1090#1091#1089' '#1076#1086#1075#1086#1074#1086#1088#1072
      OnExecute = aChangeStatusExecute
    end
    object aDelDogStatHist: TAction
      Category = 'Total'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1072#1082#1090#1080#1074#1085#1086#1089#1090#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1072#1082#1090#1080#1074#1085#1086#1089#1090#1080' '#1076#1086#1075#1086#1074#1086#1088#1072
      ImageIndex = 2
      OnExecute = aDelDogStatHistExecute
    end
    object aRecalcAct: TAction
      Category = 'Meters'
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1099#1081' '#1072#1082#1090
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1099#1081' '#1072#1082#1090
      ImageIndex = 12
      OnExecute = aRecalcActExecute
    end
    object aRecalcAllActs: TAction
      Category = 'Meters'
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1072#1082#1090#1099
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1072#1082#1090#1099
      OnExecute = aRecalcAllActsExecute
    end
    object aShowCrdAccpoint: TAction
      Category = 'Meters'
      Caption = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1058#1059' '#1072#1082#1090#1072
      Hint = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1058#1059' '#1074#1099#1073#1088#1072#1085#1085#1086#1075#1086' '#1072#1082#1090#1072
      ImageIndex = 5
      OnExecute = aShowCrdAccpointExecute
    end
    object aRefreshActList: TAction
      Category = 'Meters'
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      ImageIndex = 11
      OnExecute = aRefreshActListExecute
    end
    object aDeleteAct: TAction
      Category = 'Meters'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1072#1082#1090
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1072#1082#1090
      ImageIndex = 2
      OnExecute = aDeleteActExecute
    end
    object aShowDetail: TAction
      Category = 'Operations'
      Caption = 'aShowDetail'
    end
    object aHideDetail: TAction
      Category = 'Operations'
      Caption = 'aHideDetail'
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdDogovors'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'PageControl.<P>.ActivePage'
      
        'PageControl.MainSheet.pcDogovor.tsCurrentDog.Panel2.Panel4.pcNor' +
        'mTariff.<P>.ActivePage'
      
        'PageControl.MainSheet.pcDogovor.tsCurrentDog.Panel2.Panel4.pcNor' +
        'mTariff.NormsSheet.Panel5.dbgNormDates.<P>.Columns.ColumnsIndex'
      
        'PageControl.MainSheet.pcDogovor.tsCurrentDog.Panel2.Panel4.pcNor' +
        'mTariff.NormsSheet.Panel5.dbgNormDates.<P>.Columns.<ForAllItems>' +
        '.Width'
      
        'PageControl.MainSheet.pcDogovor.tsCurrentDog.Panel2.Panel4.pcNor' +
        'mTariff.TariffsSheet.Panel9.dbgTariffDates.<P>.Columns.ColumnsIn' +
        'dex'
      
        'PageControl.MainSheet.pcDogovor.tsCurrentDog.Panel2.Panel4.pcNor' +
        'mTariff.TariffsSheet.Panel9.dbgTariffDates.<P>.Columns.<ForAllIt' +
        'ems>.Width'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.gbOldDog.dbgOldDogo' +
        'vors.<P>.Columns.ColumnsIndex'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.gbOldDog.dbgOldDogo' +
        'vors.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.pcHist.TabSheet1.db' +
        'gDogovorHist.<P>.Columns.ColumnsIndex'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.pcHist.TabSheet1.db' +
        'gDogovorHist.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.pcHist.TabSheet3.DB' +
        'GridEh1.<P>.Columns.ColumnsIndex'
      
        'PageControl.MainSheet.pcDogovor.tsDogHistory.pcHist.TabSheet3.DB' +
        'GridEh1.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.MeterSheet.gbMeters.dbgMeters.<P>.Columns.ColumnsInd' +
        'ex'
      
        'PageControl.MeterSheet.gbMeters.dbgMeters.<P>.Columns.<ForAllIte' +
        'ms>.Width'
      
        'PageControl.MeterSheet.GroupBox1.dbgActs.<P>.Columns.ColumnsInde' +
        'x'
      
        'PageControl.MeterSheet.GroupBox1.dbgActs.<P>.Columns.<ForAllItem' +
        's>.Width'
      
        'PageControl.NoteSheet.gbExempts.dbgExempts.<P>.Columns.ColumnsIn' +
        'dex'
      
        'PageControl.NoteSheet.gbExempts.dbgExempts.<P>.Columns.<ForAllIt' +
        'ems>.Width'
      
        'PageControl.OperSheet.pcOperations.tsOperByMonth.Panel11.dbgOper' +
        'ByMonth.<P>.Columns.ColumnsIndex'
      
        'PageControl.OperSheet.pcOperations.tsOperByMonth.Panel11.dbgOper' +
        'ByMonth.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.OperSheet.pcOperations.tsOperByPeriod.Panel10.dbgOpe' +
        'rations.<P>.Columns.ColumnsIndex'
      
        'PageControl.OperSheet.pcOperations.tsOperByPeriod.Panel10.dbgOpe' +
        'rations.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.PotrSheet.bIncomplete.dbgIncomplete.<P>.Columns.Colu' +
        'mnsIndex'
      
        'PageControl.PotrSheet.bIncomplete.dbgIncomplete.<P>.Columns.<For' +
        'AllItems>.Width')
    Left = 532
    Top = 4
  end
  object MainMenu1: TMainMenu
    Images = MAIN.ImageList
    Left = 492
    Top = 4
    object N1: TMenuItem
      Caption = #1054#1082#1085#1086
      object N2: TMenuItem
        Action = aSave
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N39: TMenuItem
        Caption = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1089#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1091#1089#1083#1091#1075' '#1080' '#1090#1072#1088#1080#1092#1086#1074
        OnClick = N39Click
      end
      object N38: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Action = aCancel
      end
    end
    object N5: TMenuItem
      Caption = #1044#1086#1075#1086#1074#1086#1088
      HelpContext = 114121
      object N13: TMenuItem
        Action = aCharge
      end
      object N24: TMenuItem
        Action = aShowCharge
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N19: TMenuItem
        Action = aChangeService
      end
      object N20: TMenuItem
        Action = aChangeUK
        Caption = #1057#1084#1077#1085#1080#1090#1100' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072'/'#1078#1080#1083#1080#1097#1085#1091#1102' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1102
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Action = aRecalcSaldo
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Action = aChangeStatus
      end
    end
    object N6: TMenuItem
      Caption = #1054#1087#1077#1088#1072#1094#1080#1103
      HelpContext = 114122
      object N7: TMenuItem
        Action = aNewOperation
      end
      object N8: TMenuItem
        Action = aEditOperation
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Action = aDelOperation
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Action = aShiftMaket
      end
      object N14: TMenuItem
        Action = aOtherPays
      end
      object N18: TMenuItem
        Caption = '-'
        Visible = False
      end
      object N12: TMenuItem
        Action = aExportOperations
      end
    end
    object N27: TMenuItem
      Caption = #1057#1095#1077#1090#1095#1080#1082
      HelpContext = 114123
      object N28: TMenuItem
        Action = aMeterMount
      end
      object iRefpoint: TMenuItem
        Action = aMeterRefpoint
      end
      object N33: TMenuItem
        Caption = '-'
      end
      object N32: TMenuItem
        Action = aMeterEdit
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N31: TMenuItem
        Action = aMeterDismount
      end
      object N37: TMenuItem
        Action = aMeterDelete
      end
    end
    object N15: TMenuItem
      Action = aPrint
    end
  end
  object ds_Dogovors: TpFIBDataSet
    RefreshSQL.Strings = (
      'select d.id, rm.manag, '
      '       s.name as service, vs.name as supplier, '
      '       rsd.name,'
      '       coalesce(d.balance, 0) as balance,'
      '       coalesce(d.peni, 0) as peni,'
      '       d.bdate, d.edate,'
      '       vs.name||'#39' / '#39'||rm.manag||'#39' '#1086#1090' '#39'||d.bdate as dog_name  '
      ''
      '  from vw_dogovors d'
      '  inner join services s on s.id = d.service_id'
      '  inner join v_supplier vs on vs.id = d.supplier_id'
      '  left join rmanag rm on rm.id = d.manag_id'
      '  left join rsupplier_deps rsd on rsd.id = d.supplier_dept'
      '  where d.abonent_id = :pabonent_id'
      '    and s.group_id = :pgroup_id'
      
        '    and exists(select 1 from proc_dogovor_get_status (d.id) wher' +
        'e rstatus = 0)'
      '    and d.id <> :pdogovor_id'
      '    and d.id = :OLD_ID'
      '  ')
    SelectSQL.Strings = (
      'select d.id, rm.manag, '
      '       s.name as service, vs.name as supplier, '
      '       rsd.name,'
      '       coalesce(d.balance, 0) as balance,'
      '       coalesce(d.peni, 0) as peni,'
      '       d.bdate, d.edate,'
      '       vs.name||'#39' / '#39'||rm.manag||'#39' '#1086#1090' '#39'||d.bdate as dog_name  '
      ''
      '  from vw_dogovors d'
      '  inner join services s on s.id = d.service_id'
      '  inner join v_supplier vs on vs.id = d.supplier_id'
      '  left join rmanag rm on rm.id = d.manag_id'
      '  left join rsupplier_deps rsd on rsd.id = d.supplier_dept'
      '  where d.abonent_id = :pabonent_id'
      '    and s.group_id = :pgroup_id'
      
        '    and exists(select 1 from proc_dogovor_get_status (d.id) wher' +
        'e rstatus = 0)'
      '    and d.id <> :pdogovor_id'
      '  order by d.edate desc')
    AfterOpen = ds_DogovorsAfterRefresh
    AfterRefresh = ds_DogovorsAfterRefresh
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 158
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_DogovorsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 6
      FieldName = 'ID'
    end
    object ds_DogovorsMANAG: TFIBStringField
      DisplayLabel = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      DisplayWidth = 20
      FieldName = 'MANAG'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_DogovorsSERVICE: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DogovorsSUPPLIER: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 15
      FieldName = 'SUPPLIER'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_DogovorsNAME: TFIBStringField
      DisplayLabel = #1059#1095#1072#1089#1090#1086#1082' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_DogovorsBALANCE: TFIBBCDField
      DisplayLabel = #1057#1072#1083#1100#1076#1086
      FieldName = 'BALANCE'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_DogovorsPENI: TFIBBCDField
      DisplayLabel = #1055#1077#1085#1080
      FieldName = 'PENI'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_DogovorsBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_DogovorsEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_DogovorsDOG_NAME: TFIBStringField
      FieldName = 'DOG_NAME'
      Size = 137
      EmptyStrToNull = True
    end
  end
  object dsc_Dogovors: TDataSource
    DataSet = ds_Dogovors
    Left = 402
    Top = 158
  end
  object ds_ServiceList: TpFIBDataSet
    SelectSQL.Strings = (
      'select s.id, s.name'
      '  from services s'
      '  where s.group_id = :pgroup_id'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 198
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ServiceListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ServiceListNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_ServiceList: TDataSource
    DataSet = ds_ServiceList
    Left = 402
    Top = 198
  end
  object ds_Tariffs: TpFIBDataSet
    SelectSQL.Strings = (
      'select rtariff, rseq, rtariff_id,'
      '       p.rcreatedate,'
      
        '       (select rname from user_getfullname(p.rcreateuserid)) as ' +
        'createuser,'
      '       p.rmodifydate,'
      
        '       (select rname from user_getfullname(p.rmodifyuserid)) as ' +
        'modifyuser'
      'from proc_meter_calc_tariff(:pdogovor_id, :rbdate, null, null) p'
      'order by RSEQ')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_TariffDates
    Container = dsContainer
    Left = 370
    Top = 238
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_TariffsRTARIFF: TFIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092
      FieldName = 'RTARIFF'
      ReadOnly = True
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_TariffsRSEQ: TFIBIntegerField
      DisplayLabel = #1055#1086#1088#1103#1076#1086#1082
      FieldName = 'RSEQ'
      ReadOnly = True
    end
    object ds_TariffsRTARIFF_ID: TFIBIntegerField
      FieldName = 'RTARIFF_ID'
      ReadOnly = True
    end
    object ds_TariffsRCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'RCREATEDATE'
    end
    object ds_TariffsCREATEUSER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1090#1077#1083#1100
      DisplayWidth = 20
      FieldName = 'CREATEUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_TariffsRMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'RMODIFYDATE'
    end
    object ds_TariffsMODIFYUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1084#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'MODIFYUSER'
      Size = 150
      EmptyStrToNull = True
    end
  end
  object dsc_Tariffs: TDataSource
    DataSet = ds_Tariffs
    Left = 402
    Top = 238
  end
  object ds_Norms: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    rnorm,'
      '    rseq,'
      '    rnorm_id,'
      '    rbdate,'
      '    rnorm_day,'
      '    rgen_norm,'
      
        '    (case when rsuper_dog_id is null then 0 else 1 end) as rsupe' +
        'r_dog_id,'
      '    p.rcreatedate,'
      
        '    (select rname from user_getfullname(p.rcreateuserid)) as cre' +
        'ateuser,'
      '    p.rmodifydate,'
      
        '    (select rname from user_getfullname(p.rmodifyuserid)) as mod' +
        'ifyuser'
      'from'
      '    proc_meter_calc_norm(:pdogovor_id,'
      '    :rbdate,'
      '    null,'
      '    null) p')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_NormDates
    Container = dsContainer
    Left = 370
    Top = 278
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_NormsRSEQ: TFIBIntegerField
      DisplayLabel = #1055#1086#1088#1103#1076#1086#1082
      FieldName = 'RSEQ'
    end
    object ds_NormsRNORM_ID: TFIBIntegerField
      FieldName = 'RNORM_ID'
    end
    object ds_NormsRBDATE: TFIBDateField
      FieldName = 'RBDATE'
    end
    object ds_NormsRNORM_DAY: TFIBSmallIntField
      FieldName = 'RNORM_DAY'
    end
    object ds_NormsRGEN_NORM: TFIBSmallIntField
      FieldName = 'RGEN_NORM'
    end
    object ds_NormsRSUPER_DOG_ID: TFIBIntegerField
      FieldName = 'RSUPER_DOG_ID'
    end
    object ds_NormsRCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'RCREATEDATE'
    end
    object ds_NormsCREATEUSER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1090#1077#1083#1100
      DisplayWidth = 20
      FieldName = 'CREATEUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_NormsRMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'RMODIFYDATE'
    end
    object ds_NormsMODIFYUSER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1084#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'MODIFYUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_NormsRNORM: TFIBBCDField
      DisplayLabel = #1053#1086#1088#1084#1072
      FieldName = 'RNORM'
      Size = 4
      RoundByScale = True
    end
  end
  object dsc_Norms: TDataSource
    DataSet = ds_Norms
    Left = 402
    Top = 278
  end
  object ds_AbonService: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DOGOVORS'
      'SET '
      '    SERVICE_ID = coalesce(SERVICE_ID, :SERVICE_ID),'
      '    DOC_NUM = :DOC_NUM,'
      '    DOC_DATE = :DOC_DATE,'
      '    GEN_TARIFF = coalesce(GEN_TARIFF, :GEN_TARIFF),'
      '    GEN_NORM = coalesce(GEN_NORM, :GEN_NORM),'
      '    RESPONSIBLE = :RESPONSIBLE,'
      '    NOTE = :NOTE,'
      '    MODIFYDATE = :MODIFYDATE,'
      '--    RETLG = :RETLG,'
      '--    UDSTN = :UDSTN,'
      '    IMPORT = :IMPORT,'
      '    ADD_DESS = :ADD_DESS,'
      '    CONTROLER_ID = :CONTROLER_ID,'
      '    SINC_KOEF = :SINC_KOEF,'
      '    SUPPLIER_DEPT = :SUPPLIER_DEPT,'
      '    MANAG_ID = :MANAG_ID,'
      '    PENI_STOP = coalesce(PENI_STOP, :PENI_STOP)'
      'WHERE ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select d.ID,'
      '    d.ABONENT_ID,'
      '    d.SERVICE_ID,'
      '    d.SUPPLIER_ID,'
      '    d.ACCPOINT_ID,'
      '    d.DOC_NUM,'
      '    d.DOC_DATE,'
      '    d.BDATE,'
      '    d.EDATE,'
      '    d.GEN_TARIFF,'
      '    d.GEN_NORM,'
      '    d.RESPONSIBLE,'
      '    d.NOTE,'
      '    d.BALANCE,'
      '    d.CREATEDATE,'
      '    d.MODIFYDATE,'
      '    d.IS_ACTIVE,'
      '    d.CREATEUSERID,'
      '    d.MODIFYUSERID,'
      '    d.PENI,'
      '    d.ADD_DESS,'
      '    d.CONTROLER_ID,'
      '    d.SINC_KOEF,'
      '    d.SUPPLIER_DEPT,'
      '    d.MANAG_ID,'
      '       rm.manag, s.name as service, vs.name as supplier,'
      
        '       (select rname from user_getfullname (d.createuserid)) as ' +
        'creater,'
      
        '       (select rname from user_getfullname (d.modifyuserid)) as ' +
        'modifier,'
      
        '       coalesce((select sum(vb.balance) from vw_dogovors vb, ser' +
        'vices sgb'
      '          where vb.abonent_id = d.abonent_id'
      '            and sgb.id = vb.service_id'
      '            and sgb.group_id = s.group_id), 0) as srv_saldo,'
      
        '       coalesce((select sum(vp.peni) from vw_dogovors vp, servic' +
        'es sgb'
      '          where vp.abonent_id = d.abonent_id'
      '            and sgb.id = vp.service_id'
      '            and sgb.group_id = s.group_id), 0) as srv_peni,'
      '       (select sg.name from services sg'
      '          where sg.id = s.group_id) as grp_name,'
      '       s.group_id,'
      
        '       (select 1 from vw_straits vst where vst.code = '#39'CAN_METER' +
        #39' and vst.service_id = s.id) as meter_exist,'
      
        '       (select maxvalue(0, rmeter_exist) from proc_dogovor_meter' +
        '_exist (d.id, current_date, null, null)) as meter_exist2,'
      '       d.accpoint_id as accpoint,'
      '       coalesce(d.peni_stop, 0) as peni_stop'
      ''
      '  from vw_dogovors d'
      '  inner join v_supplier vs on vs.id = d.supplier_id'
      '  inner join services s on s.id = d.service_id'
      '  left join rmanag rm on rm.id = d.manag_id'
      '  where d.id = :pdogovor_id')
    SelectSQL.Strings = (
      'select d.ID,'
      '    d.ABONENT_ID,'
      '    d.SERVICE_ID,'
      '    d.SUPPLIER_ID,'
      '    d.ACCPOINT_ID,'
      '    d.DOC_NUM,'
      '    d.DOC_DATE,'
      '    d.BDATE,'
      '    d.EDATE,'
      '    d.GEN_TARIFF,'
      '    d.GEN_NORM,'
      '    d.RESPONSIBLE,'
      '    d.NOTE,'
      '    d.BALANCE,'
      '    d.CREATEDATE,'
      '    d.MODIFYDATE,'
      '    d.IS_ACTIVE,'
      '    d.CREATEUSERID,'
      '    d.MODIFYUSERID,'
      '    d.PENI,'
      '    d.ADD_DESS,'
      '    d.CONTROLER_ID,'
      '    d.SINC_KOEF,'
      '    d.SUPPLIER_DEPT,'
      '    d.MANAG_ID,'
      '       rm.manag, s.name as service, vs.name as supplier,'
      
        '       (select rname from user_getfullname (d.createuserid)) as ' +
        'creater,'
      
        '       (select rname from user_getfullname (d.modifyuserid)) as ' +
        'modifier,'
      
        '       coalesce((select sum(vb.balance) from vw_dogovors vb, ser' +
        'vices sgb'
      '          where vb.abonent_id = d.abonent_id'
      '            and sgb.id = vb.service_id'
      '            and sgb.group_id = s.group_id), 0) as srv_saldo,'
      
        '       coalesce((select sum(vp.peni) from vw_dogovors vp, servic' +
        'es sgb'
      '          where vp.abonent_id = d.abonent_id'
      '            and sgb.id = vp.service_id'
      '            and sgb.group_id = s.group_id), 0) as srv_peni,'
      '       (select sg.name from services sg'
      '          where sg.id = s.group_id) as grp_name,'
      '       s.group_id,'
      
        '       (select 1 from vw_straits vst where vst.code = '#39'CAN_METER' +
        #39' and vst.service_id = s.id) as meter_exist,'
      
        '       (select first(1) 1 from proc_dogovor_get_meters (d.id, cu' +
        'rrent_date, null, null, 0)) as meter_exist2,'
      '       d.accpoint_id as accpoint,'
      '       coalesce(d.peni_stop, 0) as peni_stop'
      ''
      '  from vw_dogovors d'
      '  inner join v_supplier vs on vs.id = d.supplier_id'
      '  inner join services s on s.id = d.service_id'
      '  left join rmanag rm on rm.id = d.manag_id'
      '  where d.id = :pdogovor_id')
    AfterOpen = ds_AbonServiceAfterRefresh
    AfterRefresh = ds_AbonServiceAfterRefresh
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 118
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_AbonServiceID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_AbonServiceABONENT_ID: TFIBIntegerField
      FieldName = 'ABONENT_ID'
    end
    object ds_AbonServiceSERVICE_ID: TFIBIntegerField
      FieldName = 'SERVICE_ID'
    end
    object ds_AbonServiceSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object ds_AbonServiceACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object ds_AbonServiceDOC_NUM: TFIBStringField
      FieldName = 'DOC_NUM'
      EmptyStrToNull = True
    end
    object ds_AbonServiceDOC_DATE: TFIBDateField
      FieldName = 'DOC_DATE'
    end
    object ds_AbonServiceBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_AbonServiceEDATE: TFIBDateField
      FieldName = 'EDATE'
    end
    object ds_AbonServiceGEN_TARIFF: TFIBSmallIntField
      FieldName = 'GEN_TARIFF'
    end
    object ds_AbonServiceGEN_NORM: TFIBSmallIntField
      FieldName = 'GEN_NORM'
    end
    object ds_AbonServiceRESPONSIBLE: TFIBStringField
      FieldName = 'RESPONSIBLE'
      EmptyStrToNull = True
    end
    object ds_AbonServiceNOTE: TFIBStringField
      FieldName = 'NOTE'
      Size = 1000
      EmptyStrToNull = True
    end
    object ds_AbonServiceBALANCE: TFIBBCDField
      FieldName = 'BALANCE'
      Size = 2
      RoundByScale = True
    end
    object ds_AbonServiceCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object ds_AbonServiceMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object ds_AbonServiceIS_ACTIVE: TFIBSmallIntField
      FieldName = 'IS_ACTIVE'
    end
    object ds_AbonServiceCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object ds_AbonServiceMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
    object ds_AbonServicePENI: TFIBBCDField
      FieldName = 'PENI'
      Size = 2
      RoundByScale = True
    end
    object ds_AbonServiceADD_DESS: TFIBSmallIntField
      FieldName = 'ADD_DESS'
    end
    object ds_AbonServiceCONTROLER_ID: TFIBIntegerField
      FieldName = 'CONTROLER_ID'
    end
    object ds_AbonServiceSINC_KOEF: TFIBBCDField
      FieldName = 'SINC_KOEF'
      Size = 2
      RoundByScale = True
    end
    object ds_AbonServiceSUPPLIER_DEPT: TFIBIntegerField
      FieldName = 'SUPPLIER_DEPT'
    end
    object ds_AbonServiceMANAG_ID: TFIBIntegerField
      FieldName = 'MANAG_ID'
    end
    object ds_AbonServiceMANAG: TFIBStringField
      FieldName = 'MANAG'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_AbonServiceSERVICE: TFIBStringField
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_AbonServiceSUPPLIER: TFIBStringField
      FieldName = 'SUPPLIER'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_AbonServiceCREATER: TFIBStringField
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_AbonServiceMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_AbonServiceSRV_SALDO: TFIBBCDField
      FieldName = 'SRV_SALDO'
      Size = 2
      RoundByScale = True
    end
    object ds_AbonServiceSRV_PENI: TFIBBCDField
      FieldName = 'SRV_PENI'
      Size = 2
      RoundByScale = True
    end
    object ds_AbonServiceGRP_NAME: TFIBStringField
      FieldName = 'GRP_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_AbonServiceGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object ds_AbonServiceMETER_EXIST: TFIBIntegerField
      FieldName = 'METER_EXIST'
    end
    object ds_AbonServiceMETER_EXIST2: TFIBIntegerField
      FieldName = 'METER_EXIST2'
    end
    object ds_AbonServiceACCPOINT: TFIBIntegerField
      FieldName = 'ACCPOINT'
    end
    object ds_AbonServicePENI_STOP: TFIBSmallIntField
      FieldName = 'PENI_STOP'
    end
  end
  object dsc_AbonService: TDataSource
    DataSet = ds_AbonService
    OnDataChange = dsc_AbonServiceDataChange
    Left = 402
    Top = 118
  end
  object ds_OperDetails: TpFIBDataSet
    DeleteSQL.Strings = (
      ''
      '    '
      '        ')
    SelectSQL.Strings = (
      'SELECT'
      '    RPAY_ID,'
      '    RSUMMA,'
      '    RDOCDATE,'
      '    RPAIDCOUNT,'
      '    RINCOMPLETE,'
      '    RDOG_NAME,'
      '    RPERIOD'
      'FROM'
      '    PROC_ABONENT_GET_PAYS(:RPAYS_LIST,'
      '    :PABONENT_ID,'
      '    :PGROUP_ID) ')
    BeforeOpen = ds_OperDetailsBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_Operations
    Container = dsContainer
    Left = 370
    Top = 318
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_OperDetailsRPAY_ID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 8
      FieldName = 'RPAY_ID'
    end
    object ds_OperDetailsRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      DisplayWidth = 8
      FieldName = 'RSUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperDetailsRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'RDOCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperDetailsRPAIDCOUNT: TFIBFloatField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'RPAIDCOUNT'
    end
    object ds_OperDetailsRINCOMPLETE: TFIBBCDField
      DisplayLabel = #1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072
      FieldName = 'RINCOMPLETE'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperDetailsRDOG_NAME: TFIBStringField
      DisplayLabel = #1046#1054'/'#1055#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 30
      FieldName = 'RDOG_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_OperDetailsRPERIOD: TFIBStringField
      DisplayLabel = #1055#1077#1088#1080#1086#1076
      FieldName = 'RPERIOD'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object dsc_OperDetails: TDataSource
    DataSet = ds_OperDetails
    Left = 402
    Top = 318
  end
  object ds_Operations: TpFIBDataSet
    DeleteSQL.Strings = (
      ''
      '        ')
    SelectSQL.Strings = (
      'select rdogovor_id, '
      '       ryear, '
      '       rmonth, '
      '       rmonth||'#39'-'#39'||ryear as period,'
      '       rsumma, '
      '       -rsumma as rsumma_nsign, '
      '       rp_type, '
      '       rname, '
      '       cast(rpaydcount as double precision) as rpaydcount,'
      '       rsumma_abs,'
      '       rsumma_ex,'
      '       sign(rsumma) as vsign,'
      '       sign(rsumma) * rsumma_base as rsumma_base_sign,'
      '       -sign(rsumma) * rsumma_base as rsumma_base_nsign,'
      '       rpays_list'
      'from proc_dogovor_get_pays(:pabonent_id, '
      ':pgroup_id, '
      ':pdogovor_id, '
      ':pp_type, '
      ':pbdate, '
      ':pedate, '
      ':pperiod, '
      ':pcreateuserid, '
      ':pstr)')
    AfterOpen = ds_OperationsAfterOpen
    BeforeOpen = ds_OperationsBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 358
    poSQLINT64ToBCD = True
    object ds_OperationsRDOGOVOR_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1076#1086#1075#1086#1074#1086#1088#1072
      FieldName = 'RDOGOVOR_ID'
    end
    object ds_OperationsRNAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
      DisplayWidth = 15
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationsPERIOD: TFIBStringField
      DisplayLabel = #1055#1077#1088#1080#1086#1076
      DisplayWidth = 8
      FieldName = 'PERIOD'
      Size = 23
      EmptyStrToNull = True
    end
    object ds_OperationsRYEAR: TFIBIntegerField
      FieldName = 'RYEAR'
      Visible = False
    end
    object ds_OperationsRMONTH: TFIBIntegerField
      FieldName = 'RMONTH'
      Visible = False
    end
    object ds_OperationsRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationsRP_TYPE: TFIBIntegerField
      FieldName = 'RP_TYPE'
      Visible = False
    end
    object ds_OperationsRSUMMA_ABS: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA_ABS'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationsRPAYDCOUNT: TFIBFloatField
      DisplayLabel = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
      FieldName = 'RPAYDCOUNT'
    end
    object ds_OperationsRSUMMA_EX: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1083#1100#1075#1086#1090
      FieldName = 'RSUMMA_EX'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationsVSIGN: TFIBIntegerField
      FieldName = 'VSIGN'
    end
    object ds_OperationsRSUMMA_NSIGN: TFIBBCDField
      FieldName = 'RSUMMA_NSIGN'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationsRPAYS_LIST: TFIBStringField
      FieldName = 'RPAYS_LIST'
      Size = 1000
      EmptyStrToNull = True
    end
    object ds_OperationsRSUMMA_BASE_SIGN: TFIBBCDField
      FieldName = 'RSUMMA_BASE_SIGN'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationsRSUMMA_BASE_NSIGN: TFIBBCDField
      FieldName = 'RSUMMA_BASE_NSIGN'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Operations: TDataSource
    DataSet = ds_Operations
    Left = 402
    Top = 358
  end
  object ds_Incomplete: TpFIBDataSet
    DeleteSQL.Strings = (
      'UPDATE D_INCOMPLETE_ACTS'
      'SET '
      '    IS_DELETED = 1'
      'WHERE'
      '    ID = :OLD_ACT_ID'
      '    ')
    SelectSQL.Strings = (
      
        'select di.id, dia.supplier_id, dia.supplier_dept, dia.bdate, dia' +
        '.edate, dia.ipercent,'
      '       (select first(1) 1 from pays_to_dinc pdi'
      '          where pdi.dinc_id = di.id) as is_charged,'
      '       (select v.name from v_supplier v'
      '          where v.id = dia.supplier_id) as supplier,'
      '       (select sd.name from rsupplier_deps sd'
      '          where sd.id = dia.supplier_dept) as supplier_dept,'
      '       cast((select sum(dp.potr) from dogovors_potr dp'
      '          where dp.di_id = di.id'
      
        '            and dp.is_deleted = 0) as double precision) as di_po' +
        'tr,'
      '       dia.is_deleted,'
      '       dia.id as act_id,'
      '       (select count(1) from d_inc2dogovors did'
      '          where did.d_inc_act_id = dia.id'
      '            and did.dogovor_id <> di.dogovor_id) as dog_count,'
      '       di.dogovor_id,'
      '       dia.act_no       '
      ''
      '  from d_inc2dogovors di'
      '  join d_incomplete_acts dia on di.d_inc_act_id = dia.id'
      '  where di.dogovor_id = :pdogovor_id'
      '    and dia.is_deleted = 0')
    Transaction = TransIncomplete
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 398
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_IncompleteID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object ds_IncompleteSUPPLIER_ID: TFIBIntegerField
      FieldName = 'SUPPLIER_ID'
    end
    object ds_IncompleteSUPPLIER_DEPT: TFIBIntegerField
      FieldName = 'SUPPLIER_DEPT'
    end
    object ds_IncompleteBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_IncompleteEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_IncompleteIPERCENT: TFIBBCDField
      DisplayLabel = #1055#1088#1086#1094#1077#1085#1090
      DisplayWidth = 9
      FieldName = 'IPERCENT'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_IncompleteIS_CHARGED: TFIBIntegerField
      DisplayLabel = #1056#1072#1089#1095#1080#1090#1072#1085#1072
      FieldName = 'IS_CHARGED'
    end
    object ds_IncompleteSUPPLIER: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 20
      FieldName = 'SUPPLIER'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_IncompleteSUPPLIER_DEPT1: TFIBStringField
      DisplayLabel = #1059#1095#1072#1089#1090#1086#1082' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072
      FieldName = 'SUPPLIER_DEPT1'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_IncompleteDI_POTR: TFIBFloatField
      DisplayLabel = #1042#1077#1083#1080#1095#1080#1085#1072
      FieldName = 'DI_POTR'
    end
    object ds_IncompleteIS_DELETED: TFIBIntegerField
      DefaultExpression = '0'
      FieldName = 'IS_DELETED'
    end
    object ds_IncompleteACT_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1072#1082#1090#1072
      FieldName = 'ACT_ID'
    end
    object ds_IncompleteDOG_COUNT: TFIBIntegerField
      FieldName = 'DOG_COUNT'
    end
    object ds_IncompleteDOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_IncompleteACT_NO: TFIBStringField
      FieldName = 'ACT_NO'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_Incomplete: TDataSource
    DataSet = ds_Incomplete
    Left = 402
    Top = 398
  end
  object ds_IncompleteCharge: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RSUMMA,'
      '    RDOCDATE,'
      '    REX_SUMMA,'
      '    RNOTE'
      'FROM'
      '    PROC_INCOMPLETE_GET_CHARGES(:ID, :pdogovor_id) ')
    Transaction = TransIncomplete
    Database = MAINDM.pMainDatabase
    DataSource = dsc_Incomplete
    Container = dsContainer
    Left = 370
    Top = 438
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_IncompleteChargeRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_IncompleteChargeRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
      DisplayWidth = 12
      FieldName = 'RDOCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_IncompleteChargeREX_SUMMA: TFIBBCDField
      DisplayLabel = #1051#1100#1075#1086#1090#1099
      FieldName = 'REX_SUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_IncompleteChargeRNOTE: TFIBStringField
      DisplayLabel = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'RNOTE'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object dsc_IncompleteCharge: TDataSource
    DataSet = ds_IncompleteCharge
    Left = 402
    Top = 438
  end
  object ds_DogPotrs: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select dp.pmonth||'#39'-'#39'||dp.pyear as period, cast(sum(dp.potr) as ' +
        'double precision) as sum_potr, '
      '       dp.pyear, dp.pmonth'
      '  from dogovors_potr dp'
      '  where dp.dogovor_id = :pdogovor_id'
      '    and dp.is_deleted = 0'
      '  group by dp.pyear, dp.pmonth'
      '  order by dp.pyear desc, dp.pmonth desc')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 370
    Top = 478
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_DogPotrsPERIOD: TFIBStringField
      DisplayLabel = #1055#1077#1088#1080#1086#1076
      FieldName = 'PERIOD'
      Size = 13
      EmptyStrToNull = True
    end
    object ds_DogPotrsPYEAR: TFIBSmallIntField
      FieldName = 'PYEAR'
    end
    object ds_DogPotrsPMONTH: TFIBSmallIntField
      FieldName = 'PMONTH'
    end
    object ds_DogPotrsSUM_POTR: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'SUM_POTR'
    end
  end
  object dsc_DogPotrs: TDataSource
    DataSet = ds_DogPotrs
    Left = 402
    Top = 478
  end
  object ds_DogPotrsDetail: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select iif (dp.act_potr_id is null, '#39#1053#1086#1088#1084#1072#1090#1080#1074#1085#1086#1077#39', '#39#1055#1086' '#1072#1082#1090#1091#39') as' +
        ' potr_type,'
      '       sum (dp.potr), map.act_id,'
      
        '       iif (dp.di_id is null, '#39#39', '#39#1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072' '#39'||dia.ipercent|' +
        '|'#39'%  '#8470' '#39'||dia.id) as incomplete,'
      
        '       (select mat.group_acc from m_accpoint_acts maa, m_accpoin' +
        't ma, m_accpoint_type mat'
      
        '        where mat.id = ma.account_type and ma.id = maa.accpoint_' +
        'id'
      '          and maa.id = map.act_id) as group_acc'
      '  from dogovors_potr dp'
      '  left join m_act_potr map on map.id = dp.act_potr_id'
      '  left join d_inc2dogovors d2i on d2i.id = dp.di_id'
      '  left join d_incomplete_acts dia on dia.id = d2i.d_inc_act_id'
      '    and dia.is_deleted = 0 '
      '  where dp.dogovor_id = :pdogovor_id'
      '    and dp.pyear = :pyear'
      '    and dp.pmonth = :pmonth'
      '    and dp.is_deleted = 0'
      
        '  group by dp.act_potr_id, map.act_id, dp.di_id, dia.ipercent, d' +
        'ia.id'
      '  order by dp.act_potr_id, map.act_id, dp.di_id, dia.ipercent')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_DogPotrs
    Container = dsContainer
    Left = 370
    Top = 518
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_DogPotrsDetailPOTR_TYPE: TFIBStringField
      DisplayLabel = #1048#1089#1090#1086#1095#1085#1080#1082' '#1087#1086#1090#1088#1077#1073#1083#1077#1085#1080#1103
      DisplayWidth = 15
      FieldName = 'POTR_TYPE'
      Size = 11
      EmptyStrToNull = True
    end
    object ds_DogPotrsDetailSUM: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      DisplayWidth = 12
      FieldName = 'SUM'
    end
    object ds_DogPotrsDetailACT_ID: TFIBIntegerField
      DisplayLabel = #1040#1082#1090' '#8470
      FieldName = 'ACT_ID'
    end
    object ds_DogPotrsDetailINCOMPLETE: TFIBStringField
      DisplayLabel = #1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072
      DisplayWidth = 15
      FieldName = 'INCOMPLETE'
      Size = 51
      EmptyStrToNull = True
    end
    object ds_DogPotrsDetailGROUP_ACC: TFIBSmallIntField
      FieldName = 'GROUP_ACC'
    end
  end
  object dsc_DogPotrsDetail: TDataSource
    DataSet = ds_DogPotrsDetail
    Left = 402
    Top = 518
  end
  object ds_Exempts: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RCLIENT_NAME,'
      '    RKINDEXTYPE,'
      '    RKINDEXNORM,'
      '    RVAL,'
      '    RADDITIONAL,'
      '    REXEMPT_NAME,'
      '    REX_TYPE,'
      '    REX_CODE,'
      '    RBDATE,'
      '    REDATE,'
      '    REXEMPT_DOC,'
      '    RCARRIER,'
      '    RBUDGET,'
      '    RDEPENDENT,'
      '    RNEAR_RELATION'
      'FROM'
      '    PROC_METER_GET_LGOTERS(:PDOGOVOR_ID) ')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 118
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ExemptsREXEMPT_NAME: TFIBStringField
      DisplayLabel = #1051#1100#1075#1086#1090#1085#1080#1082
      DisplayWidth = 20
      FieldName = 'REXEMPT_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ExemptsRCLIENT_NAME: TFIBStringField
      DisplayLabel = #1056#1072#1089#1087#1088#1086#1089#1090#1072#1085#1103#1077#1090#1089#1103
      DisplayWidth = 20
      FieldName = 'RCLIENT_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ExemptsREX_TYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1083#1100#1075#1086#1090#1099
      DisplayWidth = 20
      FieldName = 'REX_TYPE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ExemptsRBDATE: TFIBDateField
      DisplayLabel = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
      FieldName = 'RBDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_ExemptsREDATE: TFIBDateField
      DisplayLabel = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1087#1086
      FieldName = 'REDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_ExemptsRVAL: TFIBBCDField
      DisplayLabel = #1057#1090#1072#1074#1082#1072
      DisplayWidth = 8
      FieldName = 'RVAL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_ExemptsREXEMPT_DOC: TFIBStringField
      DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090
      DisplayWidth = 10
      FieldName = 'REXEMPT_DOC'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_ExemptsRKINDEXTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1076#1077#1081#1089#1090#1074#1080#1103
      DisplayWidth = 15
      FieldName = 'RKINDEXTYPE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ExemptsRKINDEXNORM: TFIBStringField
      DisplayLabel = #1044#1086#1083#1103
      DisplayWidth = 15
      FieldName = 'RKINDEXNORM'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ExemptsRCARRIER: TFIBStringField
      DisplayLabel = #1053#1086#1089#1080#1090#1077#1083#1100
      FieldName = 'RCARRIER'
      Size = 10
      EmptyStrToNull = True
    end
    object ds_ExemptsRADDITIONAL: TFIBStringField
      DisplayLabel = #1054#1089#1085'/'#1044#1086#1087
      FieldName = 'RADDITIONAL'
      Size = 10
      EmptyStrToNull = True
    end
    object ds_ExemptsRDEPENDENT: TFIBStringField
      DisplayLabel = #1048#1078#1076'.'
      FieldName = 'RDEPENDENT'
      Size = 10
      EmptyStrToNull = True
    end
    object ds_ExemptsRNEAR_RELATION: TFIBStringField
      DisplayLabel = #1056#1086#1076#1089#1090#1074'.'
      FieldName = 'RNEAR_RELATION'
      Size = 10
      EmptyStrToNull = True
    end
    object ds_ExemptsRBUDGET: TFIBStringField
      DisplayLabel = #1041#1102#1076#1078#1077#1090
      FieldName = 'RBUDGET'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ExemptsREX_CODE: TFIBIntegerField
      FieldName = 'REX_CODE'
      Visible = False
    end
  end
  object dsc_Exempts: TDataSource
    DataSet = ds_Exempts
    Left = 506
    Top = 118
  end
  object ds_Stoki: TpFIBDataSet
    SelectSQL.Strings = (
      'select d.id, s.name'
      '        from dogovors dd'
      
        '        left join proc_get_multi_srv (dd.service_id, dd.supplier' +
        '_id, 1, 0, current_date) p on 1=1'
      '        join dogovors d on d.service_id = p.rservice_id'
      '          and d.abonent_id = dd.abonent_id'
      '          and d.supplier_id = p.rsupplier_id'
      '          and d.is_active = dd.is_active'
      '          and d.manag_id = dd.manag_id'
      '        join services s on s.id = d.service_id'
      '        where dd.id = :pdogovor_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 158
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_StokiID: TFIBIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object ds_StokiNAME: TFIBStringField
      DisplayLabel = #1057#1090#1086#1082#1086#1074#1099#1077' '#1091#1089#1083#1091#1075#1080
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Stoki: TDataSource
    DataSet = ds_Stoki
    Left = 506
    Top = 158
  end
  object ds_Meters: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.id, m.meter_num, mt.id as mt_id,'
      
        '       (select rph from proc_meter_get_ind (m.id, current_date))' +
        ' as say_ind, '
      '       m.accpoint_id, '
      
        '       (select rm.name from rmeter_status rm where rm.id = pm.rs' +
        'tatus) as rstatus,'
      '       m.name, m.ls,'
      '       mt.name as mtype'
      
        'from meters m, meter_types mt, proc_dogovor_get_meters (:pdogovo' +
        'r_id, current_date, null, null) pm'
      'where m.id = pm.rmeter_id'
      '  and minvalue(pm.rstatus, 1) = :pstatus -- or :pstatus <> 1)'
      '  and mt.id = m.meter_type')
    BeforeOpen = ds_MetersBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 198
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_MetersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_MetersMETER_NUM: TFIBStringField
      DisplayLabel = #8470' '#1089#1095#1077#1090#1095#1080#1082#1072
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_MetersSAY_IND: TFIBBCDField
      DisplayLabel = #1058#1077#1082#1091#1097#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'SAY_IND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MetersACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object ds_MetersRSTATUS: TFIBStringField
      FieldName = 'RSTATUS'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_MetersNAME: TFIBStringField
      DisplayLabel = #1052#1077#1089#1090#1086' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_MetersLS: TFIBStringField
      DisplayLabel = #8470' '#1051#1057
      FieldName = 'LS'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MetersMTYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087
      FieldName = 'MTYPE'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MetersMT_ID: TFIBIntegerField
      FieldName = 'MT_ID'
    end
  end
  object dsc_Meters: TDataSource
    DataSet = ds_Meters
    Left = 506
    Top = 198
  end
  object ds_ActMeterInd: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.meter_num, m.name, mt.name as m_type, mi.ph,'
      '       mat.group_acc as group_meter'
      '  from m_accpoint_acts maa'
      '  join meter_ind mi on maa.id = mi.act_id'
      '    and mi.is_deleted = 0'
      '  join meters m on m.id = mi.meter_id'
      '    and m.accpoint_id in (:paccpoint_id, maa.accpoint_id)'
      '  join m_accpoint ma on ma.id = m.accpoint_id'
      '  join m_accpoint_type mat on mat.id = ma.account_type'
      '  join meter_types mt on mt.id = m.meter_type'
      '  where maa.id = :id'
      '  order by m.name')
    BeforeOpen = ds_ActMeterIndBeforeOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_Acts
    Container = dsContainer
    Left = 642
    Top = 302
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_ActMeterIndMETER_NUM: TFIBStringField
      DisplayLabel = #8470' '#1089#1095#1077#1090#1095#1080#1082#1072
      DisplayWidth = 10
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object ds_ActMeterIndNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      DisplayWidth = 10
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ActMeterIndM_TYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087
      DisplayWidth = 10
      FieldName = 'M_TYPE'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_ActMeterIndPH: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
    object ds_ActMeterIndGROUP_METER: TFIBIntegerField
      FieldName = 'GROUP_METER'
    end
  end
  object dsc_ActMeterInd: TDataSource
    DataSet = ds_ActMeterInd
    Left = 674
    Top = 302
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 330
    Top = 118
  end
  object dsContainer: TDataSetsContainer
    Left = 292
    Top = 118
  end
  object ds_TariffDates: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RBDATE,'
      '    RSUPER_TARIFF,'
      '    RGEN_TARIFF,'
      
        '    (select s.name from services s where s.id = p.RSERVICE_ID) a' +
        's service,'
      
        '    cast((select list(distinct rtariff||'#39#1088'.'#39', '#39';'#39') from proc_met' +
        'er_calc_tariff (:pdogovor_id, p.rbdate, null, null)) as d_str30)' +
        ' as tariffs'
      'FROM'
      '    P_SEL_DATE_DOGOVOR_TARIFF(:PDOGOVOR_ID,'
      '    :PBDATE,'
      '    :PEDATE) p'
      '/*where exists(select 1 from'
      '    proc_meter_calc_tariff(:PDOGOVOR_ID,'
      '    p.rbdate,'
      '    null,'
      '    null)) '#1058#1072#1082' '#1085#1072#1076#1086', '#1080#1085#1072#1095#1077' '#1085#1077' '#1087#1086#1082#1072#1078#1077#1090' '#1087#1077#1088#1080#1086#1076#1099' '#1073#1077#1079' '#1090#1072#1088#1080#1092#1086#1074' */'
      'order by rbdate desc')
    AfterOpen = ds_TariffDatesAfterScroll
    AfterScroll = ds_TariffDatesAfterScroll
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 278
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_TariffDatesRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'RBDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_TariffDatesRSUPER_TARIFF: TFIBSmallIntField
      DisplayLabel = #1044#1086#1084#1086#1074#1086#1081' '#1090#1072#1088#1080#1092
      FieldName = 'RSUPER_TARIFF'
    end
    object ds_TariffDatesRGEN_TARIFF: TFIBSmallIntField
      DisplayLabel = #1042#1080#1076' '#1090#1072#1088#1080#1092#1072
      DisplayWidth = 20
      FieldName = 'RGEN_TARIFF'
    end
    object ds_TariffDatesSERVICE: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_TariffDatesTARIFFS: TFIBStringField
      DisplayLabel = #1058#1072#1088#1080#1092#1099
      DisplayWidth = 20
      FieldName = 'TARIFFS'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_TariffDates: TDataSource
    DataSet = ds_TariffDates
    Left = 506
    Top = 278
  end
  object ds_NormDates: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RBDATE,'
      '    RSUPER_NORM,'
      '    RGEN_NORM,'
      
        '    (select s.name from services s where s.id = p.RSERVICE_ID) a' +
        's service,'
      
        '    cast((select list(rnorm) from proc_meter_calc_norm (:pdogovo' +
        'r_id, p.rbdate, null, null)) as d_str60) as norms'
      ''
      'FROM'
      '    P_SEL_DATE_DOGOVOR_NORM(:PDOGOVOR_ID,'
      '    :PBDATE,'
      '    :PEDATE) p '
      '/*where exists(select 1 from'
      '    proc_meter_calc_norm(:PDOGOVOR_ID,'
      '    p.rbdate,'
      '    null,'
      '    null)) '#1058#1072#1082' '#1085#1072#1076#1086', '#1080#1085#1072#1095#1077' '#1085#1077' '#1087#1086#1082#1072#1078#1077#1090' '#1087#1077#1088#1080#1086#1076#1099' '#1073#1077#1079' '#1085#1086#1088#1084'*/'
      'order by rbdate desc')
    AfterOpen = ds_NormDatesAfterScroll
    AfterScroll = ds_NormDatesAfterScroll
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 318
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_NormDatesRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'RBDATE'
    end
    object ds_NormDatesRSUPER_NORM: TFIBSmallIntField
      DisplayLabel = #1044#1086#1084#1086#1074#1072#1103' '#1085#1086#1088#1084#1072
      FieldName = 'RSUPER_NORM'
    end
    object ds_NormDatesRGEN_NORM: TFIBSmallIntField
      DisplayLabel = #1042#1080#1076' '#1085#1086#1088#1084#1099
      DisplayWidth = 20
      FieldName = 'RGEN_NORM'
    end
    object ds_NormDatesSERVICE: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_NormDatesNORMS: TFIBStringField
      DisplayLabel = #1053#1086#1088#1084#1099
      DisplayWidth = 20
      FieldName = 'NORMS'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_NormDates: TDataSource
    DataSet = ds_NormDates
    Left = 506
    Top = 318
  end
  object ds_DogovorHist: TpFIBDataSet
    DeleteSQL.Strings = (
      
        'update trelations_histr set IS_DELETED = 1 where id = :RRECORD_I' +
        'D')
    SelectSQL.Strings = (
      'select rrecord_id,'
      '       rfield_description,'
      '       rfield_value,'
      '       rdocdate,'
      '       rcreater,'
      '       rcreatedate, 0 as tab_id'
      '  from proc_dogovor_get_hist(:pdogovor_id, :pbdate, :pedate)'
      '/*union'
      'select rrecord_id,'
      '       '#39#1040#1082#1090#1080#1074#1085#1086#1089#1090#1100' '#1076#1086#1075#1086#1074#1086#1088#1072#39' as rfield_description,'
      '       roper_name as rfield_value,'
      '       rdocdate,'
      '       rcreateuser as rcreater, '
      '       rcreatedate, 1 as tab_id'
      '  from proc_dogovor_get_stat_hist(:pdogovor_id) p'
      '  where p.ris_deleted = 0'
      '    and p.rdocdate between :pbdate and :pedate*/'
      'order by 4 desc, 7')
    Transaction = trDogHist
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 358
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_DogovorHistRRECORD_ID: TFIBIntegerField
      FieldName = 'RRECORD_ID'
    end
    object ds_DogovorHistRFIELD_DESCRIPTION: TFIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086
      DisplayWidth = 20
      FieldName = 'RFIELD_DESCRIPTION'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DogovorHistRFIELD_VALUE: TFIBStringField
      DisplayLabel = #1057#1090#1072#1088#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'RFIELD_VALUE'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_DogovorHistRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'RDOCDATE'
    end
    object ds_DogovorHistRCREATER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1084#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'RCREATER'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_DogovorHistRCREATEDATE: TFIBDateField
      DisplayLabel = #1050#1086#1075#1076#1072' '#1084#1077#1085#1103#1083
      FieldName = 'RCREATEDATE'
    end
    object ds_DogovorHistTAB_ID: TFIBIntegerField
      FieldName = 'TAB_ID'
    end
  end
  object dsc_DogovorHist: TDataSource
    DataSet = ds_DogovorHist
    Left = 506
    Top = 358
  end
  object ds_SupplierDeps: TpFIBDataSet
    SelectSQL.Strings = (
      'select sd.id, sd.name'
      '  from rsupplier_deps sd'
      '  where sd.supplier_id = :psupplier_id'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    DataSource = dsc_AbonService
    Container = dsContainer
    Left = 474
    Top = 398
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_SupplierDepsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SupplierDepsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_SupplierDeps: TDataSource
    DataSet = ds_SupplierDeps
    Left = 506
    Top = 398
  end
  object ds_Acts: TpFIBDataSet
    DeleteSQL.Strings = (
      'UPDATE M_ACCPOINT_ACTS'
      'SET '
      '    is_deleted = 1'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select'
      '    maa.id,'
      '    act_type,'
      '    mat.name,'
      '    act_date,'
      '    maa.accpoint_id,'
      '    maa.bdate,'
      '    maa.edate,'
      '    mt.group_acc,'
      '    (select sum(mp.potr) from m_act_potr mp'
      '     where mp.act_id = maa.id'
      '       and mp.is_deleted = 0'
      '       and mp.group_id = s.group_id) as potr'
      'from dogovors d'
      
        'left join proc_accpoint_get_parents (d.accpoint_id, d.bdate, d.e' +
        'date) p on 1=1'
      'join services s on s.id = d.service_id'
      'join m_accpoint ma on ma.id = p.raccpoint_id'
      'join m_accpoint_type mt on mt.id = ma.account_type'
      'join m_accpoint_acts maa on maa.accpoint_id = ma.id'
      '  and maa.is_deleted = 0'
      'join m_act_types mat on mat.id = maa.act_type'
      'where d.id = :pdogovor_id'
      'order by maa.edate desc, maa.id desc')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trActs
    Container = dsContainer
    Left = 642
    Top = 334
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object ds_ActsID: TFIBIntegerField
      DisplayLabel = #8470' '#1072#1082#1090#1072
      FieldName = 'ID'
    end
    object ds_ActsNAME: TFIBStringField
      DisplayLabel = #1058#1080#1087
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_ActsACT_TYPE: TFIBIntegerField
      FieldName = 'ACT_TYPE'
    end
    object ds_ActsACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object ds_ActsBDATE: TFIBDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1089
      FieldName = 'BDATE'
    end
    object ds_ActsEDATE: TFIBDateField
      DisplayLabel = #1087#1086
      FieldName = 'EDATE'
    end
    object ds_ActsACT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'ACT_DATE'
    end
    object ds_ActsGROUP_ACC: TFIBSmallIntField
      FieldName = 'GROUP_ACC'
    end
    object ds_ActsPOTR: TFIBBCDField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      DisplayWidth = 14
      FieldName = 'POTR'
      Size = 3
      RoundByScale = True
    end
  end
  object dsc_Acts: TDataSource
    DataSet = ds_Acts
    Left = 674
    Top = 334
  end
  object TransIncomplete: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 326
    Top = 398
  end
  object RecalcTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 292
    Top = 158
  end
  object sp_RecalcSaldo: TpFIBQuery
    Transaction = RecalcTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE UTIL_RECALC_SALDO_DOGOVOR (:PDOGOVOR_ID)')
    Left = 330
    Top = 158
    qoStartTransaction = True
  end
  object QUpdateDogovor: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'UPDATE DOGOVORS '
      'SET '
      '    @@PRM@,'
      '    MODIFYDATE = :MODIFYDATE'
      'WHERE'
      '    ID = :PDOGOVOR_ID')
    AfterExecute = QUpdateDogovorAfterExecute
    Left = 370
    Top = 78
    qoStartTransaction = True
  end
  object prMeterDelete: TpFIBStoredProc
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure PROC_METER_DELETE :pmeter_id')
    Left = 720
    Top = 210
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object trMeters: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 686
    Top = 210
  end
  object ds_DogovorsList: TpFIBDataSet
    SelectSQL.Strings = (
      'select 0 as id, cast('#39'---'#39' as varchar(120)) as dog_name,'
      '       sum(d.balance) as balance, sum(d.peni) as peni, 0 as srt'
      '  from vw_dogovors d'
      '  join services s on s.id = d.service_id'
      '   and s.group_id = :pgroup_id'
      '  where d.abonent_id = :pabonent_id'
      'union'
      'select id, dog_name, balance, peni, srt from'
      '  (select d.id,'
      '         vs.name||'#39' / '#39'||rm.manag||'#39' '#1086#1090' '#39'||d.bdate as dog_name,'
      '         d.balance, coalesce(d.peni, 0) as peni, 1 as srt'
      '    from vw_dogovors d'
      '    inner join services s on s.id = d.service_id'
      '     and s.group_id = :pgroup_id'
      '    inner join v_supplier vs on vs.id = d.supplier_id'
      '    left join rmanag rm on rm.id = d.manag_id'
      '    where d.abonent_id = :pabonent_id'
      
        '    order by d.is_active desc, d.edate desc nulls first, d.bdate' +
        ' desc)'
      'order by 5')
    AfterOpen = ds_DogovorsAfterRefresh
    AfterRefresh = ds_DogovorsAfterRefresh
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 154
    Top = 162
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_DogovorsListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_DogovorsListDOG_NAME: TFIBStringField
      FieldName = 'DOG_NAME'
      Size = 137
      EmptyStrToNull = True
    end
    object ds_DogovorsListBALANCE: TFIBBCDField
      FieldName = 'BALANCE'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_DogovorsListPENI: TFIBBCDField
      FieldName = 'PENI'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_DogovorsList: TDataSource
    DataSet = ds_DogovorsList
    Left = 186
    Top = 162
  end
  object pmOldDogovors: TPopupMenu
    Left = 228
    Top = 471
    object N34: TMenuItem
      Action = aMoveSaldo
    end
  end
  object ds_DogStatHist: TpFIBDataSet
    DeleteSQL.Strings = (
      'update dogovors_stat_hist dh'
      'set dh.is_deleted = 1'
      'where dh.id = :RRECORD_ID')
    SelectSQL.Strings = (
      'SELECT'
      '    RRECORD_ID,'
      '    RDOCDATE,'
      '    ROPER_STAT,'
      '    ROPER_NAME,'
      '    RCREATEUSER,'
      '    RCREATEDATE,'
      '    RIS_DELETED,'
      '    RMODIFYUSER,'
      '    RMODIFYDATE'
      'FROM'
      '    PROC_DOGOVOR_GET_STAT_HIST(:pdogovor_id) '
      'where ris_deleted = 0'
      'order by RDOCDATE desc')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 474
    Top = 438
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_DogStatHistRRECORD_ID: TFIBIntegerField
      FieldName = 'RRECORD_ID'
    end
    object ds_DogStatHistRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'RDOCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_DogStatHistROPER_STAT: TFIBIntegerField
      FieldName = 'ROPER_STAT'
    end
    object ds_DogStatHistROPER_NAME: TFIBStringField
      DisplayLabel = #1054#1087#1077#1088#1072#1094#1080#1103
      DisplayWidth = 15
      FieldName = 'ROPER_NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_DogStatHistRCREATEUSER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      DisplayWidth = 15
      FieldName = 'RCREATEUSER'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_DogStatHistRCREATEDATE: TFIBDateField
      DisplayLabel = #1057#1086#1079#1076#1072#1085#1086
      FieldName = 'RCREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_DogStatHistRIS_DELETED: TFIBSmallIntField
      FieldName = 'RIS_DELETED'
    end
    object ds_DogStatHistRMODIFYUSER: TFIBStringField
      DisplayLabel = #1055#1086#1084#1077#1085#1103#1083
      DisplayWidth = 15
      FieldName = 'RMODIFYUSER'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_DogStatHistRMODIFYDATE: TFIBDateField
      DisplayLabel = #1048#1079#1084#1077#1085#1077#1085#1086
      FieldName = 'RMODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  object dsc_DogStatHist: TDataSource
    DataSet = ds_DogStatHist
    Left = 506
    Top = 438
  end
  object pmActs: TPopupMenu
    Left = 140
    Top = 327
    object N29: TMenuItem
      Action = aRecalcAct
    end
    object N30: TMenuItem
      Action = aRecalcAllActs
    end
    object N35: TMenuItem
      Action = aShowCrdAccpoint
    end
    object N36: TMenuItem
      Action = aDeleteAct
    end
  end
  object sp_RecalcAct: TpFIBQuery
    Transaction = RecalcTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT count(1)'
      'FROM PROC_GEN_CHARGE_METER(:PACT_ID, current_date, 1) ')
    Left = 330
    Top = 234
    qoStartTransaction = True
  end
  object trActs: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 614
    Top = 334
  end
  object trDogHist: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 446
    Top = 358
  end
  object qDelPays: TpFIBQuery
    Transaction = trDelPays
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute block ('
      '  ppays_str d_lstr = :ppays_str)'
      'as'
      'declare variable pay_id d_int;'
      'begin'
      '  for select rvalue'
      '      from util_str_to_list (:ppays_str, '#39';'#39')'
      '      into :pay_id'
      '  do'
      '    execute procedure proc_pays_delete (:pay_id);'
      ''
      'end')
    Left = 330
    Top = 318
    qoStartTransaction = True
  end
  object trDelPays: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 302
    Top = 318
  end
end
